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0001 
002 
0003 
000% 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 



NAM LP100C 1015% COPYRIGHT CONTROL OATA CORP 197% ♦♦♦00001 

*************************************************************** ++*+*1-** + **W.Q0QQ 2 

♦ *•** 00003 
********** REVISION RECORD ***************** ****0000% 

♦ ♦♦♦♦00005 

♦ MOQAYR VERSION WHAT DONE , WHY , AND WHO DID IT ♦♦♦♦00006 

♦ ♦♦♦♦00007 

♦ 03.207% V 3.1 SYSTEM RELEASEO ♦♦♦♦00008 

♦ CORRECTED INITIAL MESSAGE TYPEOUT ♦♦♦♦00009 

♦ ♦♦♦♦00010 

♦17%0/%2 LINE PRINTER TEST NO. OC 00012 



o 



o 
o 



001% 

0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 

0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
003% 
0035 
0036 
0037 
0038 
0039 
00%0 
00%1 
00%2 
00%3 



00%5 

00%7 
00%8 
00%9 
0050 



♦17%? DIRECTOR FUNCTION CODES IQO = 1, OUTPUT) 



0001% 



FIRST 


GROUP COl • 


= 0) 






00016 


AO 


CLEAR 1 


PRINTER 




00017 


Al 


CLEAR 


[NTERRUPT 




00018 


A? 


INTERRUPT ON OATA 




00019 


A3 


INTERRUPT ON END OF OPERATION 


00020 


A% 


INTERRUPT ON ALARM 




00021 


A5 T-P!) NOT 








00022 


A15 


USED 








00023 


SECOND GROUP tQl 


= 11 






00025 


AO 


PRINT 








00026 


Al 


SINGLE 


SPACE 




00027 


A2 


DOUBLE 


SPACE 




00028 


A3 


FORMAT 


TAPE 


LEVEL 


1 


00029 


A% 


FORMAT 


TAPE 


LEVEL 


2 


00030 


A5 


FORMAT 


TAPE 


LEVEL 


3 


00031 


A6 


FORMAT 


TAPE 


LEVEL 


% 


00032 


A7 


FORMAT 


TAPE 


LEVEL 


5 


00033 


A8 


FORMAT 


TAPE 


LEVEL 


6 


0003% 


A9 


FORMAT 


TAPE 


LEVEL 


' 7 


00035 


A10 


FORMAT 


TAPE 


LEVEL 


8 


00036 


All 


FORMAT 


TAPE 


LEVEL 


9 


00037 


A12 


FORMAT 


TAPE 


LEVEL 


10 


00038 


A13 


FORMAT 


TAPE 


LEVEL 


11 


00039 


Al% 


FORMAT 


TAPE 


LEVEL 


12 


000%0 


A15 


EIGHT LINE CPER INCH) 


000%1 




SELECT 








00Q%2 


A10, 


All, A12, 


A13, 


A15 


ARE NOT USED ON THE 17%0/501 


000%3 


FCTOR 


STATUS CODES tQC 


= 1, 


INPUT) 


000%5 


AO 


READY 








000%7 


Al 


BUSY 








000%8 


A2 


INTERRUPT 






000%9 


A3 


DATA 








00050 
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0051 » A<t END OF OPERATION THIS IS SET WHENEVER THERE IS 00051 

0052 » NO OPERATION IN PROGRESS. 00052 

0053 * A5 ALARM 00053 
005<» » A6 INOT USED1 0005«» 

0055 » A7 PROTECTED PROTECT SWITCH ON PRINTER IS IN 00055 

0056 * THE PROTECT POSITION 00056 

0057 » Afl NOT USED 00057 

0058 » . A9 OKAY TO SHITCH FROM 6 TO 8 LPI OR VICE VERSA 00058 

0059 *** A9 IS NOT USED ON THE 17«f0/501 00059 
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n 



O 



0061 

0063 

0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
078 
0079 
0080 
0081 
0082 
0083 
008(f 
0085 
0086 
0087 
0088 
0039 
0090 
0091 
0092 
0093 
009<t 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
010*» 
0105 
0106 
0107 
0108 
0109 
0110 
.0111 
0112 
0113 



♦ERPOR CODES AMD ERROR TYPEOUTS 
* ERROR COOE MEANING 



01 
02 
03 

Ok 

05 
06 
07 

08 
09 

OA 

OB 

OC 

00 

OE 

OF 
10 
11 

12 



EQUIPMENT ADDRESS ERROR (OPERATOR ERROR1 . TEST MUST 

BE CALLED AGAIN. 

PARAMETER ERROR (OPERATOR ERROR) . PARAMETERS MUST BE 

SELECTED AGAIN. 

INTERNAL REJECT OF FUNCTION. 

A=CONTENTS OF A WHEN REJECT OCCURRED 

0=CONTENTS OF Q WHEN REJECT OCCURRED 

EXTERNAL REJECT OF FUNCTION. 

A=CONTENTS OF A WHEN REJECT OCCURRED. 

Q=CONTENTS OF Q WHEN REJECT OCCURREO 

INTERNAL REJECT OF STATUS INPUT 

A=0 Q=CONTENTS OF Q WHEN REJECT OCCURRED 

EXTERNAL REJECT OF STATUS INPUT 

A=0 Q=CONTENTS OF Q WHEN REJECT OCCURREO 

INCORRECT STATUS 

A=ACTUAL STATUS Q=EXPECTEO STATUS 

(ADDITIONAL INFORMATION IN SECTION 2, LOOP 1A1 

A=WORD COUNT Q=CURRENT WORD COUNT 

NO DATA INTERRUPT WHEN EXPECTED AFTER SELECTING 

DATA INTERRUPT (SECTION .1, LOOP 4 OR 5). 

A=STATUS Q=0 

NO DATA INTERRUPT WHEN EXPECTED AFTER SELECTING 

DATA INTERRUPT AND INTERRUPT CLEAR SIMULTANOUSLY 

(SECTION 1, LOOP 6). 

A=STATUS Q=0 

NO DATA INTERRUPT WHEN EXPECTED AFTER SELECTING 

DATA INTERRUPT AND CLEAR PRINTER SIHULTANOUSLY 

(SECTION l,LOOP 7) 

A=STATUS 0=0 

NO DATA INTERRUPT WHEN EXPECTEO AFTER SELECTING 

DATA INTERRUPT OR AFTER SELECTING ALL INTERRUPTS. 

A=STATUS Q=0 

NO ALARM INTERRUPT WHEN EXPECTED AFTER OUTPUT OF 

ILLEGAL CHARACTER OR AFTER "CAUSE ALARM ON 1742 M . 

A=STATUS Q=0 

NO END OF OPERATION INTERRUPT WHEN EXPECTEO 

(SECTION «», LOOP 2 AND 5). 

A=STATUS Q=0 

NO DATA INTERRUPT WHEN EXPECTED (SECTION 3, LOOP 5 AND 

SECTION i», LOOPS k AND 51 

A=STATUS Q=0 

INTERRUPT BUT NO INTERRUPT STATUS 

A=STATUS Q=INTERRUPT LINE NUHBER, DECIMAL 

UNREQUESTED INTERRUPT 

A=STATUS Q=INTERRUPT LINE NUMBER, DECIMAL 

NO EXTERNAL REJECT OF DATA WHEN EXPECTED AFTER 

EXCEEDING MEMORY CAPACITY BY ONE WORD (69 WOROS1 

A=STATUS Q=0 

EXTERNAL DATA REJECT 



00061 

00063 

00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 
00111 
00112 
00113 
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0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
01 3* 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 



A WHEN REJECT OCCURRED 
Q WHEN REJECT OCCURRED 



13 

14 

15 
16 
17 

18 



19 



A WHEN REJECT OCCURRED 
Q WHEN REJECT OCCURRED 



1A 



18 



1C 



ID 



IE 



IF 



A=CONTENTS OF 

Q=CONTENTS OF 

INTERNAL DATA REJECT 

A=CONTENTS OF 

Q=CONTFNTS OF 

WRONG WORD COUNT 

AsSTATUS QsO 

A=ACTUAL WORD COUNT Q=EXPECTEO WORD COUNT 

INTERRUPT STATUS FAILED TO CLEAR 

A=STATUS Q=INTERRUPT LINE NUMBER, DECIMAL 

INTERNAL REJECT WHEN EXPECTING AN EXTERNAL REJECT 

A=STATUS Q=0 

NO EXTERNAL REJECT WHEN EXPECTED 

(CLEAR, SPACE, DATA, OR OURING PRINT1 

A=STATUS Q=0 

NO END OF OPERATION STATUS OCCURRED ON BUFFER DATA 

CHANNEL AFYER BUFFERED OUTPUT OF 69 OR 68 WORDS. 

A= LINE PRINTER STATUS 

Q=BOC STATUS BEFORE TERMINATION 

A=CURRENT WORO ADDRESS 

Q=EXPECTEO WORO ADDRESS 

END OF OPERATION STATUS OCCURRED ON BUFFER DATA 

CHANNEL AFTER OUTPUT OF 67 OR 68 WORDS, BUT WORO 

COUNT IS WRONG. 

A= LINE PRINTER STATUS 

Q=BDC STATUS BEFORE TERMINATION 

A=CURRENT WORO ADDRESS 

Q=FXPECTED WORO ADDRESS 

UNEXPECTED END OF OPERATION STATUS OCCURREO ON 

AFTER BUFFERED OUTPUT OF 69 WORDS. 

A= LINE PRINTER STATUS 

Q=BDC STATUS BEFORE TERMINATION 

A=CURRENT WORO ADDRESS 

Q=EXPECTED WORO ADDRESS 

UNEXPECTED EXTERNAL REJECT AFTER AN 

EXPECTED EXTERNAL REJECT DURING PRINT. 

A= ST AT US 0=0 

INTERNAL REJECT ON ATTEMPT TO INITIATE OUTPUT 

ON BUFFER DATA CHANNEL 

A=FIRST WORD ADDRESS MINUS ONE OF THE BUFFER AREA 

Q=CONTENTS OF Q WHEN REJECT OCCURREO 

EXTERNAL REJECT ON ATTEMPT TO INITIATE OUTPUT 

ON BUFFER DATA CHANNEL 

A=FIRST WORO ADDRESS MINUS ONE OF THE BUFFER AREA 

0=CONTENTS OF Q WHEN REJECT OCCURRED 

INTERNAL REJECT ON ATTEMPT TO TERMINATE BUFFER 

AND GET CURRENT ADDRESS 

A=NOT APPLICABLE 

Q= EQUIPMENT CODE 

EXTERNAL REJECT ON ATTEMPT TO TERMINATE BUFFER 

AND GET CURRENT ADDRESS 

A=NOT APPLICABLE 

QsEQUIPMENT COOE 



00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
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0168 

0170 
0171 
0172 
0173 
017 k 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 



0213 



♦CAUTIONS TO USER 



THE CHARACTER CODE FOR USE IN SECTION 8 < CLARITY TEST 1 MUST 8 
I.E., FROM 20 C HEX. ) THRU 5F C HEX. ). THE INTERRUPT LINES A 
CHARACTER CODE MAY BE CHOSEN AT THE PARAMETER STOP. 



IN SECTIONS 3 THRU 9 



IN SECTION 10 



****** 
****** 
****** 
****** 



IN SECTION 11 



****** 
****** 
****** 
****** 
****** 
****** 
****** 



IN SECTION 13 



UNEXPECTED ALARM INTERRUPTS i ER 
10) MAY OCCUR BECAUSE ALARM INTE 
IS SELECTED AT SEVERAL PLACES. 
PASS THE ALARM INTERRUPT SELECTI 
SIT 15 IN THE STOP/JUMP PARAMETE 
A STOP OCCURS AT WHICH THE OPERA 
SHOULD CAUSE AN ALARM CONDITION 
PRINTER, E.G., OPEN THE INTERLOC 
THE END OF THE SECTION THE OPERA 
CLEAR THE ALARM CONDITION FOR FU 
TESTING. 

IF STOP AT END OF SECTION BIT IS 
SET, THE ALARM CONDITION CAN BE 
CLEARED WHEN THE STOP OCCURS. 
IF STOP AT END OF SECTION BIT IS 
NOT SET, THE PROGRAM HILL LOOP 
UNTIL THE ALARM CONOITION IS 
CLEARED. 

A STOP OCCURS AT HHICH THE OPERA 
SHOULD SET THE PROTECT SHTTCHES 
COMPUTER AND ON THE PRINTER. AT 
OF THE SECTION THE OPERATOR MUST 
THE PROTECT SWITCH ON THE COMPUT 
FURTHER TESTING. 
IF STOP AT END OF SECTION BIT 
IS SET, THE PROTECT SWITCHES CAN 
BE CLEARED WHEN STOP OCCURS. 
IF STOP AT END OF SECTION BIT IS 
NOT SET, THE PROGRAM WILL LOOP 
UNTIL PROTECT STATUS DROPS. 
CLEAR THE PROTECT SWITCH ON THE 
COMPUTER FIRST, THEN CLEAR THE 
PROTECT SWITCH ON THE LINE 
PRINTER. 

IT IS ASSUMEO THAT THE FORMAT TA 
ALLOWS A CHANGE FROM 6 TO 8 LINE 
INCH WHEN STATUS BIT 9 IS SET. 
THIS SECTION SHOULD NOT BE RUN 
1740/501 LINE PRINTER 



IMPORTANT ADDRESSES 



00168 

00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
0018<» 
00185 
00186 
00187 
00188 
00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00 201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 



00213 
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0215 • DATAl - PRESTORED DATA INTERRUPT LINE 00215 

0216 » EOPL - PRESTORED END OF OPERATION INTERRUPT LINE 00216 

0217 * ALARML - PRESTORED ALARM INTERRUPT LINE 00217 

0218 » CHARS - PRESTORED CHARACTER FOR CLARITY TEST 00218 



v. 



r 



r 



60221200 F PAGE 6 



c 



V.. 



LP100C 



PAGF 



OATE* 10/20/74 



/-*\ 



0220 




•MONITOR DIRECT 


LOCATIONS 


0221 


0001 


EQU 


CONTROL(l) 


0222 


0002 


EQU 


STOPX(CONTROL«-1> 


0223 


0003 


EQU 


EXITCSTOPX+1) 


0224 


0004 


EQU 


REQINTCEXIT+11 


225 


0005 


EQU 


FCLRINTtREQINT+1) 


0226 


0006 


EQU 


JUMPIREQINT+2) 


0227 


0007 


EQU 


GENRANIJUMPfrl) 


-0228 


0008 


EQU 


TYPEOUKGENRAN+11 


0229 


0009 


EQU 


TTYB7YfTYPE0UT*i) 


0230 


OOOA 


EQU 


HEXASCITYPEOUT+2) 


0231 


0008 


EQU 


OVRLAYtHEXASCMl 


0232 


OOOC 


EQU 


RELPOSCOVRLAYH) 


0233 


OOOD 


EQU 


MAINLfRELPOS+ll 


,.:...._. 023V 


0042 


EQU 


SETMASK<MAINL*53> 


0235 


00 43 


EQU 


STJPISETMASK+1) 


0236 


00 44 


EQU 


LASTVALUCSTJPH) 


- 0237 


0045 


EQU 


LASTAO(STJP*21 


0238 


0047 


EQU 


L0LC0RECLASTAD*2J 


0239 


0048 


EQU 


LOLlCORILOLCORE+1) 


0240 


0049 


EQU 


INFORM <L0L1C0R*1» 


0241 


0056 


EQU 


SNMCNTCINFORM*13) 


0242 


0068 


EQU 


BIT00(SMMCNT+21> 


0243 


0068 


EQU 


BIT0C8IT001 


0244 


006C 


EQU 


BIT1C3IT0+1I 


0245 


006D 


EQU 


BIT2(BITH-i> 


0246 


006E 


EQU 


8IT3C8IT2+1) 


0247 


006F 


EQU 


BIT4<8IT3+1> 


0248 


0070 


EQU 


BIT5CBIT4+11 


0249 


0071 


EQU 


BIT6CBIT5*1» 


0250 


0072 


EQU 


BIT7(8IT6*1> 


0251 


0073 


EQU 


BIT8(BIT7+1I 


0252 


0074 


EQU 


BIT9CBIT8+1I 


0253 


0075 


EQU 


BIT10OIT9+11 


0254 


0076 


FQU 


BITliCBITlOvll 


0255 


0077 


EQU 


BIT12IBIT11+1) 


0256 


0078 


EQU 


BIT13C BIT12+1) 


0257 


0079 


EQU 


BIT14CBIT13+1) 


0258 


007A 


EQU 


BIT15(8IT14+11 


0259 


0078 


EQU 


H0000CBIT15+1) 


0260 


007C 


EQU 


HFFFF(H0000+1) 


0261 


007D 


EQU 


H00QF(HFFFF+1) 


0262 


007E 


EQU 


HO0FO(H0OOF«-ll 


0263 


007F 


EQU 


HOF0O(HO0F0*l) 


-.— 0264 


0080 


EQU 


HF0OO(H0F0O*l) 


0265 


0081 


EQU 


H00FF(HFO00+l> 


0266 


0082 


EQU 


HFF00(H00FF*11 


._. 0267 


0083 


EQU 


HFFF0CHFF00+11 


0268 


0084 


EQU 


HOFFFIHFFFO+1) 


0269 


0085 


EQU 


HFFOFCH0FFF+1) 


j 0270 


0086 


EQU 


HF0FFCHFF0F+1I 


0271 


0087 


EQU 


H7FFF(HF0FF*1J 


0272 


0088. 


EQU 


H7F00(H7FFF+1) 



RETURN SMM CONTROL AODRESS. 

ALL STOPS ANO ERROR TYPEOUTS 

END OF TEST-PASS EXIT 

REQUEST INTERRUPT AODRESS 

FAKE OLD -CLR INTRPT REQ- SUBRTN 

CHECK SKIPSHITCH FOR PARAM ENTRY 

RANDOM NUMBFR GENERATOR 

MESSAGE TVPEOUT ROUTINE 

ROUTINE TO WAIT TTY NOT BUSY. 

HEX TO ASCII CONVERSION 

OVERLAY CALL ROUTINE. 

A/Q RELATIVE POSITION TEST. 

MANUAL INTERRUPT ROUTINE. 

M-REG RESET VALUE 

STOP/JUMP PARAMETER WORD. 

MONITOR AREA LWAf 1 

AVAILABLE LOAD CORE FWA. 

BANKO LAST AOOR 

BANK1 LAST ADDR 

BKO SIZE, MASK SIZE, BUSY SWITCH 

SMM PARAMETER WORD. 

»•* CONSTANT TABLE »•• 



00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00 241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
00 261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00271 
00272 
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0273 


0089 


0271* 


008A 


0275 


0089 


0276 


0091 


n277 


0092 


0278 


0069 


0279 


0056 


0280 


0043 


0281 


0007 


0282 


OOOA 


0283 


0008 


028<> 


0004 


0285 


0005 


0286 


OOOA 



PAGE 



EQU 
EQU 
FQU 
EGtU 
EQU 
EQU 
EQU 
EQU 
FQU 
EQU 
EQU 
EQU 
FQU 
EQU 
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H0780CH7FOOH) 

H007FCH0780H) 

H2020(H007F*1> 

TSACTV(H2020*6> 

TSFRFQ(TSACTV*1) 

CONSTCBTT00) 

SMMPAR(SMMCNT> 

SJPARCSTJP) 

RANOOMfGENRANI 

CONVERT(HEXASC) 

MESSAG(TYPEOUT) 

REQND<REQINT1 

CLRNOCFCLRIMTI 

CONV(HEXASC) 



TABLE INDEX TO TEST IN CONTROL. 
TEST, FREQUENCY TABLE 



00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 
00284 
00285 
00286 



r~ 



0288 




0289 


006B 


0290 


006C 


0291 


006D 


0292 


006E 


0293 


006F 


0294 


006R 


0295 


0001 


0296 


0002 


0297 


0003 


0298 


0003 


0299 


007A 



♦EQUATED 174? FUNCTION CODFS 

EQU CLEARCCONST) 

FQU CLINT(CONST+l> 

EQU DIREQ(CONST«-2J 

EQU E0PREQIC0NST+3I 

EQU ALIREQtC0NST*4l 

EQU PRINTL (CONST) 

EQU SPACEtl) 

EQU DSPACE<2> 

EQU TSPACEC3) 

EQU LVL1C3) 

EQU EIGHHC0NST+15I 



CLEAR PRINTER 

CLEAR INTERRUPTS 

OAT A INTERRUPT REQUEST 

END OF OP. INTERRUPT REQUEST 

ALARM INTERRUPT REQUEST 

PRINT LINE. 

SINGLE SPACE 

DOUBLE SPACE 

FORMAT TAPE LEVEL 1 
EIGHT LINES PER INCH 



00288 
00289 
00290 
00 291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
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Lf] 


LUUb 






0301 P0O00 


180C 






0302 P0001 


l*C50 




O : 


POO 02 


3130 




vj 


P0003 


301*3 






0303 P000«* 


0012 


P 




0301* P0005 


0750 


P 


o . 


0305 P0006 


0000 




0307 P0007 


0000 






0308 P0008 


E3FD 




/-~\ 


0309 P0009 


5i*0«* 




( ) 


0310 P000A 


06FA 


P 


^-^ 


0311 P0009 


1CF3 





o 



O 



O 
O 



0313 

031*» 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
032*» 
0325 

0327 
0328 
0329 
0330 
0331 
0332 
0333 
0331* 
0335 
0336 
0337 
338 
0339 
031*0 
03<*i 
031*2 
031*3 
03«f*» 
031*5 
31*6 
031*7 
031*8 
031*9 
0350 



P000C 

pooon 

P000- 
P000F 
P0010 
POOH 

P0012 
P0013 
POOi** 
P0015 
P0016 
P0017 
P0013 

P0019 
P001A 
P0013 
P001C 
P001O 
P001E 
P001F 
P0020 
P0021 
P0022 
P0023 
P002*» 
P0025 
P0026 
P0027 
P0028 
P0029 
P002A 
P002O 
P002C 
P002O 
P002F 
P002F 
P0030 



COOO 
00 39 
68F6 
C856 
51*02 
1808 
0012 
0C31 
33EA 
000<* 
OOOt* 
OOOi* 
00i*D 
0000 

08i»l* 
60FP 
OCOF 
C9F7 
A26B 
0113 
OOFE 
Ol<*0 
18FA 
B9F1 
011A 
COFF 
09FD 
0102 
DOFF 
18F2 
C8ED 
09DF 
0132 
093F 
0131* 
0A08 
0C02 
5879 



LP100C 



PARAOR 
RETURN 
EQUIP 



RIL 



START 



PARAMS 

SFCTNS 

OATAL 

EOPL 

ALARML 

CHAR8 

LPTYPE 

PARCHK 

PARLOOP 
PARI 



PAR2 



CHARCK 



PAR3 



PAGF 



JMP' 
ALF 



AOC 
AOC 
NUM 

NUM 

LDQ* 

RTJ- 

AOC 

JMP* 

LDA 

STA* 

LDA*' 

RTJ- 

JMP» 

ORG 

NUM 

NUM 

NUM 

NUM 

NUM 

NUM 

NUM 

CLR 

STA- 

ENQ 

LOA» 

ANO- 

SAN 

TNQ 

SQZ 

JMP* 

EOR» 

SAN 

LDA- 

INA 

SAZ 

RAO- 

JMP* 

LDA» 

INA 

SAM 

INA 

SAM 

EN A 

ENQ 

RTJ* 



OATE1 10/20/71* 



START 
3,LP100C 



PARAMS 
INITOC 




EQUIP 

(REQINTJ 

INST 

CRIL) 

=XSTART1 

RETURN 

IA 

(STOPX) 

PARCHK 

* 

S0C31 

J33EA 

h 

h 

M 

$1*0 



A 

I 

15 

OATAL, I 

BIT0,Q 

PAR2-*-l 

-1 

PAR3-»-i 

PARI 

OATAL, I 

PAR3-*-l 

I 

-2 

CHARCK-»-l 

I 

PARLOOP 

CHAR8 

-32 

PAR3-»-l 

-6«* 

RILS-*-l 

8 

2 

STOP 



PARAMETER AREA FHA. 

SMM RETURNS CONTROL HERE 

EQUIPMENT ADORESS FOR STATUS INP 



REQUEST SYSTEM USE OF 

INTERRUPT LINE = AREG-BIT. 



PARAMETER STOP. 



I DENT 

SECTIONS TO BE RUN 
INTERRUPT LINES- DATA 
FOP 
ALARM 
CLAPITY TEST CHARACTER 
= 171*0/1*2, ELSE 9322/X2 



CM) 



CHECK FOR ILLEGAL PARAMETER, 



SKIP IF MORE THAN ONE LINE BIT. 



♦»* ERROR 2 = PARAM ENTRY ERROR. 



00301 
00302 



00303 
00301* 
00305 

00307 
00308 
00309 
00310 
00311 

00313 

00311* 
00315 
00316 
00317 
00318 
00319 
00320 
00321 
00322 
00323 
00321* 
00325 

00327 
00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00338 
00339 
0031*0 
00 3*1 
00 31*2 
0031*3 
003**i* 
0031*5 
0031*6 
003<*7 
00348 
0031*9 
00350 



o 

o 



60221200 F 



PAGE 



LP100C 



PAG? 



10 



OATEl 10/20/7% 



0351 P0031 180A 



JMP« 



START 



TRY AGAIN 



00 351 



0353 


P0032 


C8E1 




RILS 


LOA» 


OATAL 




035% 


P0033 


5803 






RTJ» 


RIL 




0355 


P003% 


C8E0 






LOA» 


EOPL 




0356 


P0035 


5801 






RTJ* 


RIL 




0357 


P0036 


C80F 






LOA» 


ALAR ML 




0358 


P0037 


58CF 






RTJ* 


RIL 




0359 


P0038 


5%01 






RTJ- 


CCONTROL) 




0360 


P0039 
P003A 


COOO 
00C7 


P 


START1 


LOA 


=XSMMR 




0361 


P0038 


68C9 






STA* 


RETURN 




0363 


P003C 


C806 




RESTART 


LDA» 


SECTNS 




036% 


P0O3O 


681F 






STA* 


SECTOT 




0365 








* 


GO TO 


NEXT SELECTED SECTION 


OR 


0366 


P003E 


0C01 




TEST 


ENQ 


1 




0367 


P003F 


C81C 






LDA»' 


SECTOT 




0368 


P00%0 


A26B 






ANO- 


CONST, Q 




0369 


P00%1 


0115 






SAN 


NEXTl-»-l 




0370 


P00%2 


0OF2 






INQ 


-13 




0371 


P00%3 


0151 






SON 


1 




0372 


P00%% 


1818 






JMP* 


ENOTEST 




0373 


P00%5 


ODOE 






INQ 


1% 




037% 


P00%6 


1RF8 






JMP» 


TEST+1 




0375 


P00%7 


E8i% 




NEXT1 


EOR* 


SECTOT 




0376 


P00%8 


6813 






STA» 


SECTOT 




0377 


P00%9 


0FA8 






QLS 


8 




0378 


POO%A 


%822 






STO* 


SEC 




0379 


P00%B 


0FA8 




NEXT2 


QLS 


8 




0380 


P00%C 


EA01 






LOG* 


NEXT3,Q 




0381 


P00%D 


167B 




NEXT3 


JMP- 


(HOOOO)tQ 




0382 


P00%E 


012E 


P 




AOC 


SEC1 




0383 


P0 0%F 


0180 


P 




ADC 


SEC2 




038% 


P0050 


030C 


P 




ADC 


SEC3 




0385 


P0051 


039C 


P 




AOC 


SEC% 




0386 


P0052 


0%1% 


P 




AOC 


SEC5 




0387 


P0053 


0%%6 


P 




AOC 


SEC6 




0388 


P005% 


0%78 


P 




AOC 


SEC7 




0389 


P0055 


0%90 


P 




AOC 


SEC8 




0390 


P0056 


0%AC 


P 




ADC 


SEC9 




0391 


P0057 


0%AF 


P 




AOC 


SEC10 




0392 


P0058 


0510 


P 




AOC 


SEC11 




0393 


P0 059 


0587 


P 




AOC 


SEC12 




039% 


P005A 


05F1 


P 




AOC 


SEC13 




0395 


P0059 


0000 




SECTOT 


NUH 










00353 




REQUEST DATA INTERRUPT LINE. 


0035% 
00355 




• EOP LINE, 


00356 
00357 


r 


• ALARM LINE. 


00358 
00359 
00360 


V . 




00 361 


c 

'v.... 




00363 




SECTIONS TO TEST 


00 36% 


r 


ENOTEST. 


00365 




00366 


v_.. 


SECTIONS TO TEST 


00367 






00368 


• r 


RUN NEXT SECTION 


00369 




00370 






00371 




NO MORE SECTIONS SELECTED. 


00372 
00373 
0037% 


\ 


CLEAR SECTION BIT. 


00375 
00376 






00377 


c 




00378 




00379 






00380 






00 381 


r 


FHA OF FIRST SECTION 


00382 




00383 


V... 




0038% 






00385 






00386 


C 




00387 




00388 






00389 






00390 


C 




00 391 




00392 






00393 






0039% 




SECTIONS TO BE TESTED 


00395 





0397 
0398 



ENO OF TEST STOP IF BIT 2 OF S/J WORD SET. 



00397 
00398 



60221200 



PAGE 10 



I 



o 
o 
o 
o 
o 



LP100C 



0399 



PASF 11 



DATE* 10/20/74 



0400 


P0Q5C 


6810 


ENDTEST 


STA* 


seh 


0401 


P005O 


080E 




RAO* 


PASSCT 


0402 


P005E 


E830 




LDQ* 


PASSCT 


0403 


P005F 


0A04 




ENfl 


4 


0404 


P0060 


5849 




RTJ* 


STOP 


0405 


P0061 


0A40 




ENA 


$40 


0406 


P0Q62 


5406 




RTJ- 


(JUMP* 


0407 


P0063 


1804 




JMP* 


REPEAT 


0408 


P0064 


COOO 




LDA- 





0409 


P0065 


0000 P 


TA 


Anc 


LP100C 


0410 


P0066 


5403 




RTJ- 


(EXIT1 



REPEAT TEST IF BIT 6 OF S/J WORO SET, EXIT TEST IF NOT. 



COUNT OF PASSES THRU TEST 



END OF TEST STOP 



REPEAT TEST 

TEST IA. 

EXIT FROM TEST 



00399 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00408 
00409 
00410 



O 



o 
o 
o 
o 
o 
o 
o 
o 



0412 
0413 
0414 

0415 P0067 C075 

0416 P0068 5406 

0417 P0069 18A2 

0418 P0O6A 18D1 

0419 P0063 0000 

0420 P006C 0000 



RFPEAT 



PASSCT 
SEC 



0437 P0079 0000 

0438 P007A ER7B 

0439 P007B 0152 



60221200 F 



SDATA 



REPEAT TEST. 

RE-ENTER PARAMETERS IF BITS 

LDA- CONST+10 

RTJ- (JUMP! 

JMP* START 

JMP* RESTART 

NUM 

NUM 



AND 10 OF S/J WORO SET. 



NUMBER OF PASSES THRU TEST 
CURRENT SECTION SHIFTEO 8 



0422 


P006D 


0000 


REPCON 


NUM 


0423 


P006E 


0A10 




ENA 


0424 


P006F 


5406 




RTJ- 


0425 


P0070 


1CFC 




JMP* 


0426 






* 


ENO OF 


0427 






* 


REPEAT 


0428 


P0071 


0A02 


ENOSEC 


ENA 


0429 


P0072 


ocoo 




ENO 


0430 


P0073 


5836 




RTJ* 


0431 


P0074 


E8F7 




LOQ* 


0432 


P0075 


0A20 




ENA 


0433 


P0076 


5406 




RTJ- 


434 


P0077 


1803 




JMP* 


0435 


P0078 


18C5 




JMP* 



CHECK REPEAT LAST CONOITION 
BEFORE END-OF-SECTION. 





S10 

(JUMP) 

(REPCON) 
SECTION STOP IF BIT 1 OF S/J WORO SET. 
SECTION IF BIT 5 OF S/J WORO SET, NEXT SECTION IF NOT, 

2 ENO OF SECTION 



STOP ENO OF SECTION STOP 

SEC 

S20 

(JUMP) 

NEXT2 REPEAT SECTION 

TEST NEXT SECTION 



NUM 

LOQ« 

SQN 





SELO 

2 



(POSSIBLE ERROR SOURCE ADD) 



00412 
00413 
00414 
00415 
00416 
00417 
00418 
00419 
00420 



00422 
00423 
00424 
00425 
00426 
00427 
00428 
00429 
00430 
00 431 
00432 
00433 
00434 
00435 



00437 
00438 
00439 
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o 



LP100C 



PAGE 12 



DATE! 10/20/74 



0440 


P007G 


E8FC 




LOQ* 


SOATA 


0441 


POO 70 


4878 




STQ* 


SELO 


044? 


P007E 


OCFE 




END 


-1 


0443 


P007F 


5803 




RTJ* 


OUTPUT 


0444 


PG080 


0000 




NUM 


so 


0445 


P0031 


1CF7 




JMP* 


(SOATA) 


0447 


P0082 


0000 


OUTPUT 


NUM 





0448 


P0083 


FC5B 




AOQ* 


(XFQUIP) 


0449 


P0084 


483A 




STQ* 


EXP 


0450 


P0085 


68E7 




STA* 


REPCON 


0451 


P0086 


583E 


0ATA1 


RTJ* 


SMM 


0452 


P0087 


C8E5 




LDA* 


REPCON 


0453 


P0088 


ER36 




LDO* 


FXP 


0454 


P0089 


0302 




OUT 


DATRAN-*-l 


0455 


P008A 


180E 




JMP* 


XOUT 


0456 


P0083 


1803 




JMP* 


*+3 


0457 


P0 8O 


0C13 


DATRAN 


ENQ 


$13 


0458 


P008O 


1802 




JMP* 


♦♦2 


0459 


P008E 


0C12 




ENQ 


$12 


0460 


P008F 


FCF2 




AOQ* 


(OUTPUT) 


0461 


P0090 


6B2D 




ST A* 


ACT 


0462 


P0091 


C864 




LDA* 


SELO 


0463 


P0092 


682A 




STA* 


RETAO 


0464 


P0093 


0A18 




ENA 


$18 


0465 


P0094 


5815 




RTJ* 


STOP 


0466 


P0095 


0A10 




ENA 


$10 


0467 


P0096 


5406 




RTJ- 


(JUMP) 


0468 


P0097 


18EE 




JMP* 


OATA1 


0469 


P0098 


0844 


XOUT 


CLR 


A 


0470 


P0099 


E8 5C 




LOQ* 


SELO 


0471 


P009A 


685B 




STA* 


SELO 


0472 


P0093 


C3D1 




LDA* 


REPCON 


0473 


P009C 


D8E5 




RAO* 


OUTPUT 


0474 


P009D 


1CE4 




JMP* 


(OUTPUT) 


0476 


P009E 


0000 


DATA 


NUM 





0477 


P009F 


E3PE 




LOQ* 


r»ATA 


0478 


POO/VO 


48 55 




STQ* 


SELO 


0479 


P00A1 
P00A2 


E400 
0018 P 




LDQf 


LPTYPE 


0430 


P0OA3 


0143 




SQZ 


LP1740-*-i 


0481 


P00A4 


0FC8 




ALS 


8 


0482 


P00A5 


58D3 




RTJ* 


SOATA 


0483 


P00A6 


0FC8 




ALS 


8 


0434 


P00A7 


58D1 


LP1740 


RTJ* 


SOATA 


0485 


PO0A3 


1CF5 




JMP* 


(OATA) 



(POSSIBLE ERROR PREP) 



(USED TO CALC CODE ON ERROR) 



(ADJUSTED EQUIP ADD) 

(DATA OR FUNCTION TEMP STORAGE) 



*** ERROR 13 EXTERNAL DATA REJ. 

*** ERROR 12 INTERNAL OATA REJ. 
ADJUST CODE TO 4/3 ON FUNCTIONS. 

(ERROR SOURCE ADD) 



REPORT REJECT ON DATA/FCN OUTPUT 



REPEAT CONDITIONS 



(POSSIBLE ERROR PREP) 



00440 
00441 
00442 
00443 
00444 
00445 



00447 
00448 
00449 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00458 
00459 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
O0468 
00469 
00470 
00 471 
00472 
00473 
00474 



00476 
00477 
00478 
00479 

00480 
00481 
00482 
00483 
00484 
00485 



c 



V , 



60221200 
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u 



O 
O 
O 
O 

o 



u 





LP10QC 




PAG 


0487 






* 




0488 






* 


STOP 


0489 






* . 


BIT 


0490 


P00A9 


noon 


STOP 


NUM 


0491 


POOAA 
POOAB 


8000 

ocoo 




AOD 


0492 


POOAC 


6B0E 




STA* 


0493 


POOAO 


F8BE 




AQQ* 


0494 


POOAE 


4800 




STQ* 


0495 


POOAF 


C80O 




LOA* 


0496 


P0080 


0111 




SAN 


0497 


P0091 


C8F7 




LOA* 


0498 


P00B2 


E043 




LOQ- 


0499 


P00B3 


0FA6 




QLS 


0500 


P0034 


0171 




SQM 


0501 


P00B5 


98AF 




SUB* 


050? 


P00B6 


6806 




STA* 


0503 


P00B7 


0844 




CLR 


0504 


P00B8 


5402 




RTJ- 


0505 


P00B9 


1808 




JHP* 


0506 


POOBA 


0000 


ID 


NUM 


0507 


POOBB 


0000 


SECERR 


NUM 


0508 


P008C 


0000 


RETAO 


NUM 


0509 


P008O 


0000 


ACT . 


NUM 


0510 


POOBE 


0000 


EXP 


NUM 


0511 


P003F 


0000 


ACT1 


NUM 


0512 


POOCO 


0000 


EXPl 


NUM 


0513 


PO0C1 


08 44 


STOPGO 


CLR 


0514 


POOCZ 


68F9 




STA* 


0515 


P00C3 


1CE5 




JHP* 



OATEJ 10/20/74 



STOP FOR END OF TEST, END OF SECTION, AND MOST ERRORS IF CORRES 
S/J WORD IS SET. 

=N$0COO TEST NUMBER 



ID 

SEC 

SECFRR 

RETAO 

1 

STOP 

STJP 

6 

1 

IA 

RETAO 

A 

(STOPXI 

STOPGO 















A 

RETAO 

ISTOP) 



I DENT WORD 

SECTION, ERROR CODE 

<SKIP IF ENTRY FROM ERROR PREP 
SUB, ELSE ENTRY FROM SOURCE) 



UNBIAS REPORTED ERROR ADDRESS. 
RETURN ADDRESS 



TEST NO.C, NO. OF STOPS,TYPE OF 

SECTION , ERROR NUMBER 

RETURN ADDRESS 

ACTUAL 

EXPECTED 



00487 
00488 
00439 
00490 
00491 

00492 
00493 
00494 
00495 
00496 
00497 
00498 
00499 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00508 
00509 
00510 
00511 
00512 
00 513 
00 514 
00515 



o 
o 



o 
o 
o 
o 



0517 
0518 
0519 

0520 P00C4 0000 

0521 P00C5 COFF 

0522 P00C6 68F9 

0523 P00C7 5303 

0524 P0OC8 5401 

0525 P00C9 1CFA 



0527 POOCA 0000 

0528 POOCO CC13 

0529 POOCC 0822 

0530 POOCO AOOO 
POOCE F800 

0531 POOCF 0104 

0532 POODO F077 



60221200 



SHM 



SMMR 



SMM1 



RETURN JUMP TO MONITOR, SAVE l$00FF>, PRINTER SHOULO NOT BE BUS 
RETURN. GET STATUS UPON RETURN. 

SAVE INDEX 

LET SMM MUX WHILE CHAN OR EQ BZY 
RETURN HERE, STAT IN A, WHEN NOT 



NUM 

LDA- 

STA* 

RTJ* 

RTJ- 

JMP* 




I 

EXPl 

SHMl 

(CONTROL! 

(SMMJ 


NUM 

LOA* 

TRA 

AND 




(XEQUIP) 
Q 
=N$F800 


SAZ 
ADQ- 


SMMR1-*-! 
CONST+12 



IS EQUIP ON A CHANNEL 

YES CHANGE EQ NO FOR STATUS 



00517 
00518 
00519 
00520 
00521 
00522 
00523 
00524 
00525 



00527 
00528 
00529 
00530 

00531 
00532 



PAGE 13 



V. 



LPiOOC 



0533 P0OD1 5810 

0534 P00D2 A06C 

0535 P00D3 0117 

0536 P00O4 5808 SMMR1 

0537 P00B5 A06C 

0538 P0006 0114 

0539 P0OO7 5805 

0540 POOrH E8E7 

0541 poong 40ff 

0542 POOOA D8EF 

0543 P0008 1GEE SMM2 



PAGE 


14 


RTJ* 


STATO 


ANO- 


BIT1 


SAN 


SMM2-*-l 


RTJ* 


STAT 


AND- 


BIT1 


SAN 


SMM2-*-l 


RTJ* 


STAT 


LDQ* 


EXP1 


STQ- 


I 


RAO* 


SMM1 


JMP* 


tSMMi) 



DATE* 10/20/74 



CHECK CHANNEL BUSY 

SKIP IF BUSY. 

NO CHECK EQUIP BUSY 

SKIP OUT IF BUSY. 



RESTORE I NO EX 



00 533 
00534 
00535 
00536 
00537 
00538 
00539 
00540 
00541 
00542 
00543 



0545 






* 






0546 






* 


GET STATUS AND STORI 


0547 


POODC 


0000 


STAT 


NUN 





0548 


POODD 


E400 




LOQ- 


(0) 


0549 


POOOE 


0006 P 


XEQUTP 


AOC 


EQUIP 


0550 


POOOF 


5802 




RTJ* 


STATO 


0551 


POOEO 


1CFB 




JMP* 


(STATI 


0552 


P00E1 


0000 


STATO 


NUM 





0553 


P00E2 


4812 




STQ* 


STAT2 


0554 


P00E3 


ER11 


STATTA 


U)Q* 


STAT2 


0555 


P00E4 


0205 




INP 


STATl-*-l 


0556 


P00E5 


6807 




STA* 


ACT 


0557 


POOEo 
P00E7 


AOOO 
F07F 




ANT 


=NSFH7F 


0558 


P0OE8 


1CF8 




JMP* 


(STATO) 


0559 


P0OE9 


1804 




JMP* 


*+U 


0560 


POOEA 


4803 


STAT1 


STQ* 


EXP 


0561 


P00E8 


0C06 




ENQ 


$6 


0562 


POOEC 


1803 




JMP* 


**3 


0563 


POOED 


48D0 




STQ* 


EXP 


0564 


POOEE 


0C05 




ENQ 


*5 


0565 


POOEF 


08 44 




CLt? 


A 


0566 


POOFO 


68CC 




STA* 


ACT 


0567 


P00F1 


0A18 




EN A 


Si* 


0568 


POOF? 


58B6 




RTJ* 


STOP 


0569 


P00F3 


18EF 




JMP* 


STATOA 


0570 


P00F4 


0000 


STAT? 


NUM 






SAVE EQUIP AOOR 

GET STATUS 

SAVE ACTUAL STATUS 

DROP BITS 7 ANO 9 



***ERROR 6 EXTERNAL REJECT OF STATU 



**»ERROR 5 INTERNAL REJECT OF STAT 



EQUIP ADOR IS STOREO HERE 



00545 
00546 
00547 
00548 
00549 
00550 
00551 
00 552 
00553 
00554 
00555 
00556 
00557 

00558 
00559 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00568 
00569 
00570 



0572 * 

0573 * 

0574 P00F5 0000 SELO 

0575 P00F6 E8FE 

0576 P00F7 5802 SEL02 



SELECT FUNCTION WITH QO = 1, Ql = 0. 
NUM 
LOQ* SELO 
RTJ* SELECT 



00572 
00573 
00 574 
00575 
00576 



60221200 
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L. 



o 
o 
o 
o 
o 



LPiOOC 



0577 P00F8 0000 



0579 P00F9 0000 SELECT 
0530 POOFA «*8FA 

0581 PO0F3 ECFH 

0582 POOFC 5885 
0593 P00F9 FFFO 
058*f POOFE 167R 



0586 * 

0587 * 

0538 POOFF 0000 SEL1 

0539 POiOO ESFE 

0590 P0101 58F7 

0591 P0102 0002 



PAG? 



NUM 



15 



DATE* 10/20/7^ 



NUM 





STQ* 


SELO 


LDQ* 


ISELECT) 


RTJ* 


OUTPUT 


NUM 


-SF 


JMP- 


IH0OOO>,Q 



(USEO TO CALC COOE ON ERROR) 
RETURN TO SELX CALLER 



SELECT FUNCTION WITH QO = 1, Ql = 1. 



NUM 





LOQ* 


SEL1 


RTJ* 


SELECT 


NUM 


2 



00577 



00579 
00580 
00581 
00582 
00583 
0058*t 



00586 
00587 
00588 
00589 
00590 
00591 



o 



0593 
059** 
0595 
0596 

0597 P0103 0000 

0598 P010*t E0V3 

0599 P0105 0161 

0600 P0106 B06F 

0601 P0107 bC7k 

0602 P0108 E8FA 

0603 P0109 18ED 



* 00593 

* SELECT ALARM INT. SIMULTANEOUSLY WITH OTHER FUNCTIONS UNLESS 0059«» 

* BIT 15 OF THE STOP/JUHP WORD IS SET, IN WHICH CASE THE OTHER 00595 

* FUNCTIONS ARE SELECTEO BUT THE ALARM INTERRUPT IS NOT SELECTED. 00596 
SEL2 NUM 00597 

LDO- STJP STOP/JUMP PARAMETER 00593 

SQP 1 00599 

EOR- CONST+t* CLEAR ALARM REQUEST 00600 

STA* IXRF1 CLEAR ALARM REQUEST FLAG. 00601 

LOQ* SEL2 00602 

JMP* SEL02 00603 



o 
o 
o 
o 

o 
o 

n 



0605 
0606 
0607 

0608 P010A 0000 

0609 P0109 B8B1 

0610 P010C 6891 

0611 P010O C3FC 

0612 P01OE 689A 

0613 P010F B000 
P0110 0197 

061*» P0111 0116 
0615 P0112 MJAD 



60221200 



♦ ERROR CODE $07, UNEXPECTED STATUS 

* A = ACTUAL STATUS, Q= EXPECTED STATUS 
ERR1 NUM 

EOR* ACT 
STA* EXP 
LDA* ERR1 
STA* STOP 
EOR =XSEC2ER7 



SAN 
STQ" 



NOTSEC2-* 
EXP1 



SKIP IF NOT SECTION 2. 
OTHERWISE, ADO CURRENT WORD 



00605 
00606 
00607 
00608 
00609 
00610 
00611 
00612 
00613 

0061*i 
00615 
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L°100C 




PA5E 


16 


0616 


P0113 
P011*t 


CkQO 
0460 P 




LOA* 


WOCNT 


0617 


P0115 


68A9 




STa» 


ACT1 


0618 


P011& 


(1A28 




ENA 


$28 


0619 


P0117 


1802 


N0TSEC2 


JMP* 


**2 


0620 


P0118 


0518 




ENA 


$18 


0621 


P0119 


0C07 




ENO 


$7 


0622 


P011A 


188F 




JMP* 


STOP+1 


0623 


P011B 


0000 


L00P5F 


num n 




0624 


P011C 


0000 


L00P6F 


NtIM 




0625 


P0110 


0000 


L00P7F 


NUM 




0627 


P011E 


0000 


SUB11 


NUM 





0628 


P011F 


58AI» 




RTJ* 


SMM 


0629 


P0120 


B865 




EOR* 


NINETEEN 


0630 


P0121 


0103 




SAZ 


3 


0631 


P0122 


E8F8 




LDQ* 


SUB11 


0632 


P0123 


48E6 




STQ* 


ERRi 


0633 


P012<t 


18E6 




JMP* 


ERR1*1 


0634 


P0125 


0A10 




ENA 


$in 


0635 


P0126 


5406 




RTJ- 


(JUMPl 


0636 


P0127 


1CF6 




JMP* 


(SUBil) 


0637 


P0128 


D8F5 




RAO» 


SUB11 


0638 


P0129 


1CF4 




JMP* 


(SUB11I 


0640 


P012A 


0000 


SEL211 


NUM 





06«tl 


P012B 


0A11 




ENA 


$11 


0642 


P012C 


5806 




RTJ* 


SEL2 


0643 


P012D 


1CFC 




JMP* 


(SEL211) 



OATEt 10/20/74 



ANO WORD COUNT TO STOP INFO. 



ERROR CODE 7 



RETURN WITH STATUS- 
EXPECT EOP, OATA, READY 



REPORT UNEXPECTED STATUS, CODE 7 
CHECK REPEAT CONDITION S/J BIT. 
NOT SET, 



00616 

00617 
00618 
00619 
00620 
00621 
00622 
00623 
00624 
00625 



00627 
00628 
00629 
00630 
00631 
00632 
00633 
00 634 
00635 
00636 
00637 
00638 

00640 
00641 
00642 
00643 



r~ 



0645 
06<f6 
0647 

0649 
0650 

0651 P012E 58EF 

0652 P012F 18FE 



************************* **************************** ******************* 

* 1111111111111111111111111111 111111111111111111 11111111 llllillllllllllll 

♦ SECTION 1 - STATIC STATUS CHE 



* SECTION 1, LOOP 1 - GET STATUS, EXPECT $0019 

SEC1 RTJ* SUB11 

JMP* SEC1 REPEAT CONDITIONS IF SET 



00645 
00646 
00647 

00649 
00650 
00651 
00652 



065«» 
0655 

0656 P0130 5«1B 

0657 P0131 58EC 

0658 P0132 18FD 



* SECTION 1, LOOP 2 - CLEAR PRINTER, GET STATUS, EXPECT $0019 
LOOP12 RTJ* CLRP FUNCTION CLEAR PRINTER. 

RTJ* SUB11 

JMP* L00P12 REPEAT CONDITIONS IF SET 



00654 
00 655 
00656 
00657 
00658 



V 



c 



60221200 
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DATE! 10/20/74 



o 
o 
o 
o 

n 



O 

o 
o 
o 
o 



0660 
0661 
066? P0133 C06C 

0663 P0134 5«C0 

0664 P0135 58E8 

0665 P0136 18FC 



* SECTION 1, LOOP 3 - CLEAR INTERRUPTS, GET STATUS* EXPECT $0019 
L00P13 LOA- CLINT SET BIT 1 FOR CLEAR INTERRUPT 

RTJ* SEL0 SELECT CLEAR INTERRUPT FUNCTION 

RTJ* SU811 

JMP* L00P13 



0667 






* 






0668 






* 


SECTION 


1, LOOP 4 


0669 






* 






0670 






* 






0671 


P0137 


E06D 




LDQ> 


DIREQ 


067? 


P0138 


«*812 




STQ* 


FC 


0673 


P0139 


0844 


L00P14 


CLR 


A 


0674 


P013A 


6400 




STA- 


(0) 


0675 


PQ13S 


02DB P 


XOF 


ADC 


OF 


0676 


P013C 


0A04 


S14C 


ENA 


$<» 


0677 


P013O 


6C3E 




STA* 


<XRF> 


0678 


P013E 


C80C 




LOA* 


FC 


0679 


P013F 


58 85 




RTJ* 


SELO 


0680 


P0140 


5883 




RTJ* 


SMH 


0631 


P0141 


CCF9 




LDA* 


(XDF) 


068? 


PQlkP 


one 




SAN 


Sli»A-*-l 


0683 


P0143 


0C08 




ENQ 


8 


0684 


POUtt* 


F807 




AOQ* 


L00P6F 


0685 


P0145 


C807 




LOA* 


L00P7F 


0686 


P0146 


0101 


WDINC 


SAZ 


1 


0687 


P0147 


0C0A 




ENO 


$A 


0638 


P0143 


5R3E 




RTJ* 


ERSX 


0689 


P0149 


180A 




JMP* 


S14B 


0691 


P014A 


onoo 


FC 


NUH 





0693 


P01«+B 


0000 


CLRP 


NUM 





0694 


P014C 


0A01 




ENA 


1 


0695 


P014O 


58A7 




RTJ* 


SELO 


0696 


P014E 


1CFC 




JMP* 


CCLRP) 


0698 


P014F 
P0150 


5400 
037B H 


S14A 


RTJ* 


SUB42 


0699 


P0151 


0010 




NUM 


$10 


0700 


P015? 


18E6 




JMP* 


L00P14 


0701 


P0153 


58F7 


S14B 


RTJ* 


CLRP 


070? 


P015'* 


0A10 




ENA 


$10 


0703 


P0155 


540 6 




RTJ- 


(JUMP) 


070** 


P0156 


18E0 




JMP* 


L00P14-2 



SELECT DATA INTERRUPT, EXPECT INTERRUPT, 
EXPECT INTERRUPT STATUS $0010, CLEAR INTERR 
EXPECT STATUS $0019 



CLEAR OATA INT FLAG. 



SELECT DATA INTERRUPT 

CHECK DATA INT FLAG. 
OKAY IF INTERRUPT OCCURREO 
*** CODE 8 = NO DATA INTERRUPT. 
MAYBE CODE 9. 



OR CODE A. 



CHECK INTERRUPT STATUS 

EXPECT EOP, DATA, INTRPT, RDY. 
P+l RETURN = REPEAT CONO, P+2 IF NOT 
FUNCTION CLEAR PRINTER. 

CHECK BIT 4 OF S/J WORO 
REPEAT CONDITIONS IF SET 



00660 
00661 
00662 
00663 
00664 
00665 



00667 
00668 
00669 
00670 
00671 
00672 
00673 
00 674 
00675 
00676 
00677 
00678 
00679 
00680 
00681 
00682 
00683 
00 684 
00685 
00686 
00687 
00688 
00689 

00691 

00693 
00694 
00695 
00696 

00698 

00699 
00700 
00701 
00702 
00703 
00704 



60221200 
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^.,. 
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OATE: 10/20/74 



0706 






* 






0707 






* 


SECTION 


1, LOOP 5 


0708 






* • 






0709 






* 






0710 


P0157 


C8C3 


L00P15 


L9A* 


L00P5F 


0711 


P0151 


0116 




SAN 


Sl«5A-*-l 


0712 


P0159 


C8C2 




LOA* 


L00P6F 


0713 


P015A 


0119 




SAN 


S16A-*-l 


0714 


P015 3 


CRC1 




LOA* 


L00P7F 


0715 


P015C 


one 




SAN 


S17A-*-l 


0716 


P015O 


08 BD 




RAO* 


L00P5F 


0717 


P015E 


18DA 




JMP* 


L00P14 


0718 


P015F 


08*t*» 


S15A 


CLR 


A 


0719 


P0160 


61HA 




STA* 


L00P5F 



SELECT DATA INTERRUPT, EXPECT INTERRUPT, 
EXPECT INTERRUPT STATUS $0010, CLEAR PRINTE 
EXPECT STATUS $0019 

CHECK LOOP 5 FLAG 

CHECK LOOP 6 FLAG 

CHECK LOOP 7 FLAG 



SET LOOP 5 
GO TO LOOP 



FLAG 
4 



CLEAR LOOP 5 FLAG 



00706 
00707 
00708 
00709 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00718 
00719 



0721 






* 






0722 






* 


SECTION 


1, LOOP 6 


0723 






* 






072i» 






* 






0725 






* 






0726 


P0161 


D89A 


L00P16 


RAO* 


L00P6F 


0727 


P0162 


0C06 




ENQ 


$6 


0728 


P0163 


180«» 




JMP* 


LOOPH»-l 


0729 


P0164 


0844 


316A 


CLR 


A 


0730 


P0165 


6886 




STA* 


L00P6F 



SIMULTANEOUSLY, EXPECT INTERRUPT, 

EXPECT INTERRUPT STATUS $0010, CLEAR INTERR 

EX°ECT STATUS $0019 

SET LOOP 6 FLAG 

SELECT DATA INT PLUS CLEAR INT. 



CLEAR LOOP 6 FLAG 



00721 
00722 
00723 
00 72 if 
00 725 
00 726 
00727 
0072B 
00729 
00730 



0732 




* 






0733 




* 


SECTION 


1, LOOP 7 


0734 




* 






0735 




* 






0736 




* 






0737 P0166 


OBB6 


L00P17 


RAO* 


L00P7F 


0738 P0167 


OC05 




ENQ 


$5 


0739 P0168 


1RCF 




JMP* 


L00P14-1 


0740 P0169 


08M» 


S17A 


CLR 


A 


0741 P015A 


6832 




STA* 


L00P7F 



SELECT OAT A INTERRUPT AND CLEAR PRINTER 
SIMULTANEOUSLY, EXPECT INTERRUPT, 
EXPECT INTERRUPT STATUS $0010, 
CLEAR INTERRUPT, EXPECT STATUS $0019 

SET LOOP 7 FLAG 

SELECT DATA INT PLUS CLR PRNTR. 



CLEAR LOOP 7 FLAG 



00732 
00733 
00734 
00735 
00736 
00737 
00738 
00739 
00740 
00741 



0743 



00743 



60221200 
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o 



n 



/ i 



LP 


LOOC 


PASE 19 




0744 


* 


SECTION 1 


, LOOP 8 


0745 


* 






0746 P0163 


OAOB L00P18 ENA 


U8 


0747 P016C 


6C0F 


STA* 


(XPF) 


071*8 P0161 


C0 6E 


LDA- 


EOPREQ. 


0749 PQ16E 


5800 


RTJ 


SELO 


P016F 


FF85 






0750 P0170 


58AD 


RTJ* 


SU811 


0751 P0171 


0800 


NOP 





0752 P0172 


08Mf 


CLR 


A 


0753 P0173 


6800 


STA 


INTF 


PQ17<f 


0503 






0754 P0175 


5805 


RTJ* 


CLRP 


0755 P0176 


0A10 


ENA 


$10 


0756 P0177 


5406 


RTJ- 


(JUMP) 


0757 P0178 


18F2 


JMP* 


L00P18 



0ATE1 10/20/74 



SELECT EOP INTERRUPT, EXPECT NO INTERRUPT, 
EXPECT STATUS $0019, 



SELECT EOP INTERRUPT 



FUNCTION CLEAR. 

CHECK BIT 4 OF S/J WORD 
REPEAT CONDITIONS IF SET 



00 744 
00 745 
00746 
00747 
00748 
00749 

00750 
00751 
00752 
00753 

00 754 
00755 
00756 
00757 



f ) 



u 



0759 






* 






0760 






* 


SECTION 


1, LOOP 9 


0761 






» 






0762 


P0179 


0A10 


L00P19 


ENA 


$10 


0763 


P017A 


6400 




STA- 


<0> 


764 


P0178 


074F P 


XRF 


AOC 


RF 


0765 


P017C 


C06F 




LHA- 


ALIREQ 


0766 


P0170 
P017E 


5800 
FF76 




PTJ 


SELO 


0767 


P017F 


589E 




RTJ» 


SUB11 


0768 


P0180 


0800 




NOP 





0769 


P0181 


58C9 




RTJ» 


CLRP 


0770 


P0182 
P0183 


5400 
00 60 P 




RTJ+ 


REPCON 


0771 


P0184 


18 F4 




JMP* 


L00P19 



SELECT ALARM INTERRUPT, EXPECT NO INTERRUPT 
EXPECT STATUS $0019 



SELECT ALARM INTERRUPT 



FUNCTION CLEAR. 
END SECTION. 

RETURN FOR CONDITION REPEAT, 



00759 
00760 
00761 
00762 
00763 
00764 
00765 
00766 

00767 
00768 
00769 
00770 

00771 



0773 P0185 0019 



NINETEEN NUM 



$19 



STATUS MASK = EOP, DATA, READY, 



00773 



60221200 F 
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(' 



LPiOOC 



0775 P0186 0000 

0776 P0187 C8FE 

0777 P0188 6400 
P0189 0200 

0778 P018A 0618 

0779 P0183 1400 
P018C 020E 



ERRX 



PAGE 


20 




NUH 

LOA» 

STAM- 






ERRX 

ERRSUB 


EN A 
JHPt 




$18 

ERRSUB+i 



OATEt 10^20/74 



00775 
00776 
00777 

00778 
00779 



r~ 



0781 
0782 
0733 

0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 

0796 
0797 
0798 
0799 

0800 
0801 
0802 
0803 
0804 

0805 

0806 
0807 

0808 
0809 
0810 

0811 
0812 
0813 

0814 



****** ************* ****** ************************************** ********* 

* SECTION 2 - DATA TRANSFER 
*2222222222222?22222222?2222222222222222222222222222222 22222222222222222 



P018O 
P018E 
P018E 
P0190 
P0191 
P0192 
P0193 
P0194 
P0195 
P0196 
P0197 
P0198 
P0199 
P019A 
P019B 
P019C 
P0190 
P019E 
P019F 
P01AO 
P01A1 
P01A2 
P01A3 
P01A4 
P01A5 
P01A6 
P01A7 
P01A8 
P01A9 
P01AA 



58BD 
0844 
6C35 
5800 
FF32 
B8F2 
0104 
E805 
5400 
niOA 
181E 
COOO 
2020 
0500 
5400 
00 79 
5800 
FF30 
0400 
6800 
FF1B 
5846 
18EC 
5800 
FF1E 
B837 
0103 
5800 
FF60 
180B 



SEC 2 



S21AA 



SEC2ER7 



WORD 



S21AB 



SECTION 2, LOOP 1A, 



RTJ» 
CLR 
STA* 
RTJ 

FOR* 
SAZ 
LOQ* 
RTJ* 

JHP* 

LOA- 

NUN 

ITN 

RTJ* 

RTJ 

EIN 
STA 

RTJ* 
JMP* 
RTJ 

EOR* 

SAZ 

RTJ 

JMP* 



CLRP 
A 

(XWDCNT) 
SMM 

NINETEEN 
WORD-*-? 
WORD 

ERR1 

S21AC 



$2020 



SDATA 

STAT 


ACT 

CHKCNT 
S21AA 

SMM 

ELEVEN 
3 

ERR1 

S21AC 



CLEAR PRINTER, GET STATUS, EXPEC 
OUTPUT A WORD, GET STATUS AGAIN, 
$0019, CONTINUE FOR 68 WORDS, GE 
EXPECT $0011, ATTEMPT OUTPUTTING 
WORO, EXPECT EXTERNAL REJECT 

CLEAR PRINTER. 

INITIALIZE WORD COUNT. 



•»» ERROR 7 = UNEXPECTED STATUS. 



INHIBIT INTERRUPTS 
tSINGLE WORD OUTPUT) 



ENABLE INTERRUPTS 



CHECK OUTPUT COUNT 

LOOP FOR 136 PRINT CHARACTERS. 



EXPECT NO DATA STATUS 

ERROR COOE 7, UNEXPECTED STATUS 



00781 
00782 
00783 

00785 
00786 
00787 
00788 
00789 
00790 
00791 
00792 
00793 
00794 
00795 

00796 
00797 
00798 
00799 

00800 
00801 
00802 
00803 
00804 

00805 

00806 
00807 

00808 
00809 
00810 

00811 
00812 
00813 

00814 



60221200 F 
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r 



n 



O 
O 





LPionc 


0815 


P01A3 


E«tOO 




P01AC 


D32B 


0816 


P01AO 


COOO 


0817 


P01AE 


2020 


0818 


P01AF 


0305 


0819 


P0130 


0C11 


0820 


P0181 


5400 




P01B2 


2EE 


0821 


P0183 


1802 


0822 


P01R4 


18FB 


0823 


P01B5 


0A1O 


082** 


P01B6 


5406 


0825 


P01B7 


1805 


0826 


P01B8 


C8E0 


0827 


P01B9 


883C 


0828 


P01BA 


EOOO 




P01B3 


60 60 


0829 


P01BC 


0872 


0830 


P01BO 


68D8 


0831 


P01BE 


01M 


0832 


P01BF 


18CD 


0833 


P01C0 


E3E0 


0834 


P01C1 


4807 



iwn 



S21E? 



S21AC 
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LDQ> 



OATEI 10/20/74 



EQIO 



LOA- 





NUM 


$2020 


OUT 


S21AC-*-l 


ENQ 


$11 


PTJ* 


ERSUB2 


JMP* 


♦♦2 


JMP* 


S21ER 


ENA 


$10 


RTJ- 


(JUHP) 


JMP* 


SEC2 


LDA* 


WORO 


AOD* 


WOTNC 


LDQ 


=N$6060 


EAQ ' 


Q 


STA* 


WORO 


SQ7 


1 


JMP* 


SEC2 


Log* 


iwn 


STQ* 


WORO 



*** CODE 11 = NO EXT REJ OF OATA 



RFPEAT CONDITIONS 



NEXT CHARACTER 



00815 

00816 
00817 
00818 
00819 
00820 

00821 
00822 
00823 
00824 
00825 
00826 
00827 
00828 

00829 
00830 
00831 
00832 
00833 
00834 



o 
o 



o 
o 
o 



0836 






* 






0837 






* 


SECTION 


2, LOOP 1, 


0838 






* 






0839 






* 






0840 


P01C2 


0844 


L00P21 


CLR 


A 


08<»1 


P01C3 


6400 




STA- 


(0) 


0842 


P01C4 


0^60 P 


XWDCNT 


ADC 


WOCNT 


08^3 


P01C5 


5885 




RTJ* 


CLRP 


0844 


P01C6 


0844 


LP21A 


CLP 


A 


0845 


P01C7 
P01C8 


6800 
0113 




STA 


OF 


08«t6 


P01C9 


OA04 




ENA 


■$4 


0847 


POICA 


6CB0 




STA* 


t'XRF) 


0848 


POICB 
POICC 


5800 
FF28 




RTJ 


SELO 


08*»9 


poica 

P01CE 


5800 
FEF5 




RTJ 


SHM 


0850 


POICF 
P01D0 


C800 
0103 




LDA 


DF 


0851 


P01O1 


0113 




SAN 


3 


0852 


P01D2 


OCOB 




FNQ 


SB 


0853 


P01O3 


58B2 




RTJ* 


ERRX 


0854 


P01D4 


1301) 




JMP* 


S21B 


0855 


P01O5 


C308 




LDA* 


IWD C=*2020> 


0856 


P01O6 
P01O7 


5400 
0079 P 




RT J* 


SOATA 




60221200 F 









SELECT CLEAR PRINTER AND DATA IN 
EXPECT 68 DATA INTERRUPTS, GET S 
EXPECT $0011 



CLEAR PRINTER. 



SELECT DATA INTERRUPT 



*** ERROR 8 = NO DATA INTERRUPT 



00836 
00837 
00838 
00839 
00340 
00841 
00842 
00843 
00844 
00845 

00846 
00847 
00848 

00 849 

00850 

00851 
00852 
00853 
00854 
00855 
00856 
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I ) 



LPiOOC 



PAG; 



22 



OATFI 10/20/7/* 



0857 P01D8 


5810 




RTJ* 


CHKCNT 


0858 P0109 


18EC 




JMP* 


LP21A 


0859 P010A 


5B00 


S21A 


RTJ 


SMM 


poinB 


FEE8 








0860 poinn 


00 no 




EOR- 





0861 P01DO 


0011 


ELEVEN 


NUN 


toon 


0862 P01OE 


0102 




SA7 


2 


0863 P01OF 


5800 




RTJ 


ERR1 


P01E0 


FF29 








085<f P01E1 


0A10 


S218 


ENA 


$10 


0865 P01E2 


5406 




PTJ- 


(JUMP) 


0856 P01F.3 


180E 




JMP* 


L00P21 


0867 P01E4 


COOO 




LOA- 





0868 P01E5 


onno 


CHAN 


NUM 





0869 P01E6 


0119 




SAN 


LOOP22-*-l 


0870 P01E7 


18 5F 




JMP* 


L00P25 


0872 P01ER 


0000 


CHKCNT 


NUM 





0873 P01E9 


OCOA 




PAO* 


<XWDCNT> 


0874 P01EA 


5832 




RTJ* 


CNT 


0875 P01EB 


0854 




TCQ 


A 


0876 P01EC 


BCD7 




ADD* 


CXW0CNT1 


0877 P01EO 


0111 




SAN 


1 


0875 P01EE 


08F9 




RAO* 


CHKCNT 


0879 P01EF 


1CF8 




JMP* 


(CHKCNT) 



CHECK OUTPUT COUNT. 

LOOP FOR 136 PRINT CHARACTERS. 



EXPECT NO DATA STATUS 

ERROR CODE 7, UNEXPECTED STATUS 



REPEAT CONDITIONS 



SKIP LOOPS 2/3 IF NO ROC. 



GET WORO/CHAR OUTPUT COUNT. 



00857 
00858 
00859 

00860 
00861 
00862 
00863 

00864 
O0865 
00866 
00 867 
00868 
00869 
00870 



00872 
00873 
0087*1 
00875 
00876 
00877 
00878 
00879 



/" 



0881 




* 






0882 




* 


SECTION 


2, LOOP 2 


0883 




* 






0884 




* 






0885 




* 






0886 




* 






0887 




*' 






0888 P01F0 


C83D 


L00P22 


LOA* 


IHO (=$2020) 


0889 P01F1 


5828 




RTJ* 


CNT 


0890 P01F2 


6F6B 


LP22 


ST A* 


<FWAM1),Q 


0891 P01F3 


OOFE 




INQ 


-1 


0892 P01F4 


0141 




SQZ 


1 


0893 P01F5 


18FC 




JHP* 


LP22 


0894 P01F6 


585F 




RTJ* 


TNITBO 


0895 P01F7 


1803 




JMP* 


S22C 


0896 P01F8 


580F 




RTJ* 


CKER19 


0897 P01F9 


180A 




JMP* 


S22G 


0899 P01FA 


CC63 


S22C 


LOA* 


(FWAM1) 


0900 P01FB 


6800 




STA 


EXP1 


P01FC 


FEC3 








0901 P01FO 


5800 




RTJ 


STAT 


P01FE 


FEDO 









CLEAR PRINTER, ATTEMPT BUFFERED 
OUTPUT OF 68 WORDS. TERMINATE I 
STATUS DOES NOT OCCUR ON BOC AFT 
GETTING 80C STATUS $8000 TIMES 
CHECK CURRENT WORD AODRESS AND 
LINE PRINTER STATUS 

GET WORD/CHAR OUTPUT COUNT. 



EXPECTED ADDRESS 
GET STATUS 



00881 
00882 
00883 
00884 
00885 
00886 
00887 
00888 
00889 
00890 
00891 
00892 
00893 
00894 
00895 
00896 
00897 

00899 
00900 

00901 



60221200 
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( ) 



LPionc 



0902 POIFF 0A28 

0903 P0200 0C18 
090** P0201 5800 

P0202 FEA6 

0905 P0203 0A10 

0906 P020** 5*C6 

0907 P0205 13FA 

0908 P0206 1810 
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0910 


P0207 


onoo 


o 


0911 


P0203 


FC55 


0912 


P0209 


«»800 






P020A 


FE35 




0913 


P0203 


087* 


s~\ 


091** 


P020C 


0107 


C ) 


0915 


P020D 


5800 


^s 




P020E 


FFCn 




0916 


P020F 


0A28 


/" " V 


0917 


P0210 


0C19 


1 


0918 


P0211 


5300 


1 




P0212 


FE96 




0919 


P0213 


1808 




0920 


P021*» 


5800 






P0215 


FEAF 


o 


0921 


P0216 


B000 




0922 


P0217 


0011 




0923 


P0218 


0102 


o 


092* 


P0219 


5800 




P021A 


FEEF 


0925 


P0213 


1CEB 




0927 


P021C 


0000 


o 


0928 


P021D 


E*»00 




P021E 


0018 




0929 


P021F 


01U1 




0930 


P0220 


0C»5 


o 


0931 


P0221 


0O** 


w 


0932 


P0222 


1CF9 



S22G 



CKER19 



S22E 



S23E 



S22F 



CNT 



EN A 
ENQ 
RTJ 


$28 
$18 
STOP 


ENA 
RTJ- 
JMP* 
JHP* 


$10 
<JUMP> 
L00P22 
L00P23 


NUM 

LOQ* 

STQ 




(FWAM1) 

EXP1 


EAQ 
SAZ 
RTJ 


A 

S22E-»-l 

STAT 


ENA 
ENQ 
RTJ 


$28 
$19 
STOP 


J*P» 

RTJ 


S22F 
SMM 


FOR- 
NUH 
SAZ 
RTJ 


O 

$0011 

S22F-»-l 

FRR1 


JMP» 


CSKER19) 


NUM 
LQQ* 



LPTYPE 


SQZ 
ENQ 
INQ 
JMP» 


1 

69 
68 
(CNT! 



DATE! 10/20/7* 



•♦♦ERROR 18 NO EOP ON BOC 



REPEAT CONDITIONS. 



SKIP IF WORD COUNT OKAY 



♦♦♦ERROR 19 WORD COUNT ERROR 



EXPECTED STATUS 
♦♦♦ERROR 7 UNEXPECTED STATUS 



00902 
00903 
0090* 

00905 
00906 
00907 
00908 

00910 
00911 
00912 

00913 
0091* 
00915 

00916 
00917 
00918 

00919 
00920 

00921 
00922 
00923 
0092* 

00925 

00927 
00928 

00929 
00930 
00931 
00932 



o 



093* 




* 






0935 




* 


SECTION 


2, LOOP 3 


0936 




* 






0937 P0223 


08 IB 


LOOP23 


LOA^ 


LP23F 


0938 P022<» 


0117 




SAN 


S23B-^-l 


0939 P0225 


D819 




RAO^ 


LP23F 


09*0 P0226 


C833 




LOA^ 


S22A 


09*1 P0227 


09FE 




INA 


-1 


09*2 P0228 


6831 




STA^ 


S22A 


09«»3 P0229 


0A19 




ENA 


$19 



SAME AS LOOP 2 EXCEPT 67 WORDS 
RATHER THAN 68 WORDS 



0093* 
00935 
00936 
00937 
00938 
00939 
009*0 
009*1 
009*2 
009*3 



60221200 
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u 



LP100C 



PAGt 24 



DATEI 10/20/7*t 



094«» P022A 68EC 

0945 P0223 ISC** 

0946 P022C D82D 

0947 P022TJ 0A11 
09kR P022F 68E8 

0949 P022 c QfMtk 

0950 P0230 580E 



S23B 



STA* 


S23E 


JMP* 


L00P22 


PAH* 


S22A 


ETNA 


$11 


STA» 


S23E 


CLR 


A 


STA* 


LP23F 



00944 
00945 
00946 
009ii7 
00 948 
00949 
00950 



f 



/" 



V. 



0952 
0953 
095«* 
0955 
0956 
0957 

0958 P0231 D828 

0959 P0232 5823 

0960 P0233 180C 
0951 P0234 K825 

0962 P0235 6300 
P0236 FE89 

0963 P0237 5800 
P0238 FEA3 



SFCTTaN 2, LOOP «♦ 



L00P2«» 



RAO* 
RTJ* 
JMP* 
LDA* 
STA 

PTJ 



S22A 

INITBO 

S2«fC 

S2?A 

EXP1 

STAT 



096** 


P0239 


0A28 




ENA 


S28 


0965 


P023A 


0C1A 




FNQ 


$IA 


0966 


P023R 
P021C 


5800 
FE6C 




RTJ 


STOP 


0967 


P0230 


1803 




JMP* 


S2'*G 


0969 


P023E 


0000 


LP23F 


NUM 





0971 


P023F 


58C7 


S2*»C 


RTJ* 


CKEP19 


0972 


P0240 


C819 


S24G 


LH8* 


S22A 


0973 


P0241 


09FE 




INA 


-1 


0974 


P02«f2 


6817 




STA* 


S22A 


0975 


P0243 


0A10 




ENA 


$10 


0P76 


P02i»4 


5i»(16 




RTJ- 


(JUM°> 


0977 


P02«»5 


18F3 




JMP* 


L00P24 


0978 






* 






0979 






* 


SECTION 


2, LOOP 5 


0980 






* 






0981 






* 






0982 


P02«*5 


5C57 


L00P25 


RTJ* 


(XCLRP) 


0983 


P02'*7 


0A0O 




ENA 





098*» 


P0248 
P0249 


5800 
FE5if 




RTJ 


DATA 


0985 


P02*tA 
P024S 


5800 
FF78 




RTJ 


SMM 


0986 


P024C 
P024O 


BOOO 
00 39 




EOR 


=N*0039 



CLEAR PRINTER, ATTEMPT BUFFERED 
OF 69 WORDS, EXPECT EOP NOT TO 
TERMINATE ANO CHECK CURRENT WORD 
AND LINE PRINTER STATUS 



•♦♦ERROR 1A EOP OCCUREO ON BDC 



REPEAT CONDITIONS 

CLEAR PRINTER, OUTPUT ILLEGAL CH 
GET STATUS, EXPECT $0039 

CLEAR PRINTER, OUTPUT ILLEG CHAR 



EXPECT ALARM STATUS 



00952 
00953 
00954 
00955 
00956 
00957 
00958 
00959 
00960 
00961 
00962 

00963 

00964 
00965 
00966 

00967 

00969 

00971 
00972 
00973 
00974 
00975 
00976 
00977 
00978 
00979 
00980 
00981 
00982 
00983 
00984 

00985 

00986 



^ 



50221200 F 
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DATE* 10/20/71* 



w 



o 
o 
o 



0987 


P024E 


0102 




SAZ 


2 


0988 


P024F 
P0250 


5800 
FEB9 




RTJ 


ERR1 


0989 


P0251 


OA10 




ENA 


$10 


0990 


P025? 


5406 




RTJ- 


UUMP> 


0991 


P0253 


18F2 




JMP* 


L00P25 


0992 


P0254 


1846 




JMP* 


L00P26 


0994 


P0255 


0000 


INITIO 


NUM 





0995 


P0256 


5C47 




RTJ* 


(XCLRP) 


0996 


P0257 


5RC4 




RTJ* 


CNT 


0997 


P0258 


0814 




TRQ 


A 


0998 


P0259 


0901 


S22A 


INA 


1 


0999 


P025A 


8803 




ABB* 


FHAM1 


1000 


P025R 


6002 




STA» 


CFWAM1) 


1001 


P025C 


cooo 




LOA- 





1002 


P025F) 


0750 P 


FWAM1 


ADC 


FMA-1 


1003 


P025F 


E0 00 




LOQ- 





1004 


P025F 


0000 


EOWRT 


NUM 





1005 


P0260 
P0261 


6830 
FE58 




STA 


ACT 


1006 


P0262 
P0263 


4900 
FE5A 




STQ 


EXP 


1007 


P0264 


0302 


BOC1 


OUT 


BDC2-*-l 


1008 


P0265 


1807 




JMP* 


BDC 03 


1009 


P0266 


1803 




JMP* 


**3 


1010 


P0267 


0C1D 


9DC2 


ENQ 


SID 


1011 


P0268 


1802 




JMP* 


**2 


1012 


P0269 


OCIC 




ENO 


SIC 


1013 


P026A 


5815 




RTJ* 


BDCERR 


1014 


P026B 


18F8 




JMP* 


BOC1 


1015 


P026C 


344 


BHC03 


CLR 


A 


1016 


P026D 


60FF 




STA- 


I 


1017 


P026E 


581E 


BDCSTAT 


RTJ* 


INBDC 


1018 


P026F 
P0270 


6400 
OOBE P 




STA* 


EXP 


1019 


P0271 


A06F 




ANn- 


CONST+4 


1020 


P0272 


0115 




SAN 


xao-*-i 


1021 


P0273 


OOFF 




RAO- 


I 


1022 


P0274 


COFF 




LDA- 


r 


1023 


P0275 


3074 




EOR- 


CONST+9 


1024 


P0276 


0102 




SAZ 


EQTERM-*-2 


1025 


P0277 


18F6 




JMP* 


BDCSTAT 


1026 


P0278 


D8DC 


XBO 


RAH* 


TNITBO 


1027 


P0279 


E000 




LOQ- 





1028 


P027A 


0000 


EQTERM 


NUM 





1029 


P027B 


5811 




RTJ* 


INBOC 


1030 


P027C 
P0273 


6400 
00 8F P 




STA* 


ACT1 


1031 


P027E 


1CD6 




JMP* 


(INITBO) 



ERROR COOE 7, UNEXPECTED STATUS 



REPEAT CONOTTIONS 



INITIATE BUFFEREO OUTPUT 
CLEAR PRINTER. 



♦♦♦ERROR 10 EXT REJ ON ATTEHPT TO 
TO INITIATE OUTPUT ON BDC 

***ERRCR 1C INT REJ 



CLEAR COUNTER. 
GET BDC STATUS. 



CHECK EOP. 
INOREMENT COUNTER. 

LOOP FOR SUFFICIENT TIME, 

TERMINATE ANO GET CURRENT ADOR. 
EXIT 



00987 
00988 

00989 
00990 
00991 
00992 



00994 
00995 
00996 
00997 
00 998 
00999 
01000 
01001 
01002 
01003 
01004 
01005 

01006 

01007 
01003 
01009 
01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 
01018 

01019 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01028 
01029 
01030 

01031 



60221200 
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n 



LP100C 



PAGE 26 



DATE! 10/20/74 



1033 P027F flOOO 

1034 P0280 0A18 

1035 P0281 5800 
P028? FF26 

1036 Pn283 0A10 

1037 P0284 5406 

1038 P0285 1802 

1039 P0286 08F8 

1040 P0287 E400 
P0283 OOBE 

10*»1 P0289 C800 

P028A FE32 

1042 P0283 1CF3 



80CFRR 



- 1044 


P028C 


0000 


10<»5 


P0280 


6300 




P023E 


FE2F 


1046 


P028F 


4800 




P0290 


FE20 


10^7 


P0291 


0202 


10<»8 


P0292 


1CF9 


10t»9 


P0293 


1803 


1050 


P0294 


0C1F 


1051 


P0295 


1802 


1052 


P0296 


0C1E 


1053 


P0297 


58E7 


1054 


P0298 


1RF8 


1055 


P0299 


1CF2 



INBOC 



B0C3 



B0C4 



NUM 





ENA 


$18 


RTJ 


STOP 


ENA 


$10 


RTJ- 


(JUMP) 


JMP* 


•♦2 


RAO* 


BOCERR 


LOQ* 


EXP 


LOA 


ACT 


JMP* 


(BOCERR) 


NUM 





STA 


ACT 


STQ 


EXP 


IMP 


BOC«»-*-l 


JMP* 


(INPDC) 


JMP* 


♦♦3 


eno 


$1F 


JMP* 


**2 


eno 


$1E 


RTJ* 


BOCERR 


JMP* 


BDC3 


JMP* 


(INBOC) 



REPEAT CONDITIONS. 



***ERROR IF EXT REJ ON ATTEMPT TO 

TERMINATE BUFFER AND GET CURRENT 
••♦ERROR IE INT REJ 

REPEAT CONDITIONS. 



01033 
0103% 
01035 

01036 
01037 
01038 
01039 
01040 

01041 

01042 

01044 
01045 

01046 

01047 
01048 
01049 
01050 
01051 
01052 
01053 
01054 
01055 



1057 




» 






1058 




* 


SECTION 


2, LOOP l 


1059 




* 






1060 




* 






1061 




* 






1062 P029A 


0844 


L00P26 


CLP 


A 


1063 P0298 


6841 




STA* 


AF 


1064 P029C 


5400 




PTJ- 


(0) 


1065 P0290 


014B P 


XCLPP 


AOC 


CLRP 


1066 P029E 


08<»4 




CLR 


A 


1067 P029F 


6800 




STA 


INTF 


P02AO 


04A7 








1068 P02A1 


0A00 




ENA 





1069 P02A2 


5800 




RTJ 


DATA 


P02A3 


FOFA 








1070 P02A4 


0A10 




ENA 


J10 


1071 P02A5 


6800 




STA 


RF 


P02A6 


04A9 








1072 P02A7 


C06F 




LOA- 


ALIREQ. 


1073 P02A8 


5800 




RTJ 


SELO 


— P02A9 


FE4B 








60221209 F 









SELECT CLEAR PRINTER AND ALARM I 
OUTPUT ILLEGAL CHARACTER* EXPECT 
INTERRUPT, EXPECT INTERRUPT STAT 
S003D 

CLEAR ALARM INTERRUPT FLAG 
CLEAR PRINTER. 



OUTPUT ILLEGAL CHARACTER. 



REQUEST ALARM INTERRUPT 



01057 
01058 
01059 
01060 
01061 
01062 
01063 
01064 
01065 
01066 
01067 

01068 
01069 

01070 
01071 

01072 
01073 
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c 



r~~ 



K.. 



o 



'■\ 



I J 





L D 100C 


1074 


P02AA 


5809 




P02A3 


FE13 


1075 


P02AC 


C83P 


1076 


P02A9 


0113 


1077 


P02A" 


OCOC 


1078 


P02AF 


5C18 


1079 


P02B0 


1805 


1080 


P02B1 


5CEB 


1081 


PQ2B2 


5C22 


108? 


P02B3 


003O 


1083 


P02B<» 


0300 


1034 


P02B5 


0A10 


1085 


P02B6 


5406 


10*5 


P0237 


18E2 



S26A 



PA3E 27 



P.TJ 



OATEX 10/20/7^ 



SMM 



LOA» 


AF 


S»N 


3 


ENQ 


$C 


RTJ* 


CXFRRX1 


JMO# 


S26A 


RTJ* 


(XCLRP1 


PTJ* 


(XSUB42) 


NUM 


S3D 


NOP 





EN1 


SlO 


RTJ- 


(JUMP1 


JMP* 


L00P26 



*** ERROR C = NO ALARM INTERRUPT 



CLEAR PRINTER. 



REPEAT CONDITIONS 



01074 

01075 
01076 
01077 
01078 
01079 
01080 
01081 
01082 
01083 
01084 
01085 
01086 



\ I 



r > 


108R 






* 








1089 






* 


SECTI0N2, 


LOOP 




1090 






* 








1091 






» 








1092 






V- 






o 


1093 


P0238 


08Mt 


LOOP27 


CL° 


A 


1094 


P02B9 


6822 




STA* 


OF 




1095 


P029A 


682? 




STA* 


AF 


,,--.. 


1096 


P0 2 33 


0A04 




EN A 


4 




1097 


P029C 


6800 




STA 


RF 


v -— ■/ 




P02RD 


0492 










1098 


P028F 


0A0F 




ENO 


$F 


.---. 


1099 


P028F 
P02C0 


5800 
FF34 




RTJ 


SELO 


\^_y 


1100 


P0 2C1 
P02C2 


58 

FE01 




RTJ 


SMM 




1101 


P02C3 


C818 




LDA* 


OF 


c 


1102 


P02C«» 


0113 




SAN 


3 


1103 


P02C5 


0C09 




ENQ 


SB 


1104 


P02C6 


5400 




<?TJ- 


(0) 




1105 


P02C7 


0136 P 


XERRX 


AOC 


ERRX 


/■■"^ 


1106 


P02C8 


180F 




J HP* 


S27C 




1107 


P02C9 


0A10 




EN A 


$10 


1108 


P02CA 


6800 




STA 


RF 






P02CR 


0434 








s~ -% 


1109 


P02CC 


58 




RTJ 


SELO 


o 


i 


P02CD 


FE27 








' 1110 


P02CF 


OAOO 




EN A 







1111 


P02CF 
PO2D0 


5800 
FQCO 




RTJ 


DATA 


r^ 


1112 


P02D1 


C803 




LOA* 


AF 


L^ 


' 1113 


P02D2 


ocon 




ENQ 


$C 




1114 


P02O"? 


5400 




RTJ- 


(0) 




1115 


P0?O<* 


0373 P 


XSUB'-f? 


ADC 


SUB<*2 



SELECT BOTH CLEARS ANO ALL INTER 
SIMULTANEOUSLY, EXPECT DATA INTE 
OUTPUT ILLEGAL CHARACTER, EXPECT 
INTERRUPT, EXPECT INTERRUPT STAT 

CLEAR DATA INTERRUPT FLAG 
CLEAR ALARM INTERRUPT FLAG 
SELECT DATA INTERRUPT 



*** ERROR B = NO OATA INTERRUPT 



SELECT ALARM INTERRUPT 



OUTPUT ILLEGAL CHARACTEP. 



»** ERROR C = NO ALARM INTERRUPT 



01088 
01089 
01090 
01091 
01092 
01093 
01094 
01095 
01096 
01097 

01098 
01099 

0110 

01101 
01102 
01103 
01104 
01105 
01106 
01107 
01108 

01109 

OHIO 
01111 

01112 
01113 
01114 
01115 



60221200 F 
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o 





LP100C 




PAGE 


28 


1116 


P02O5 0030 




NUM 


$30 


1117 


P0206 OBOO 




NOP 





1118 


P02H7 5CC5 


S?7C 


RTJ* 


tXCLPPt 


1119 


P02D8 5*»nO 
P02D9 006O P 




PTJf 


REPCON 


1120 


P02OA 1600 




JMP* 


L00P27 


1121 


P02D3 0000 


OF 


NUM 





1122 


P020C 0000 


A p 


NUM 






OATEt 10/20/7* 



CLEAR PRINTER. 
END SECTION. 

RETURN FOR CONDITION REPEAT. 



01116 
01117 
01118 
01119 

01120 
01121 
01122 






112* 


P02OO 


0000 


ERRSUB 


NUM 





1125 


P02DE 


680B 




STA* 


STPCNT 


1126 


P02DF 


*80F 




STQ* 


ERSUB2 


1127 


P02EO 
P02E1 


5*00 
OOOC P 




RTJf 


STAT 


1128 


P02E2 


C8FA 




LOA* 


ERRSUB 


1129 


P02E3 
P02E* 


6*00 
OOBC P 


ES2 


STA> 


RETAD 


1130 


P02E5 


08** 




CLR 


A 


1131 


P02F6 
P02E7 


6<f00 
OOBE P 




STA+ 


EXP 


- 1132 


P02E8 


CO00 




LOA- 





1133 


P02E9 


0000 


STPCNT 


NUM 





113* 


P02EA 


FB0«f 




LOQ* 


ERSUR2 


1135 


P02EB 
P02EC 


5*00 
0OA9 P 




RTJ* 


STOP 


1136 


P02EO 


1CEF 




JMP» 


(ERRSUB) 


1138 


P02EE 


0000 


ERSU32 


NUM 





1139 


P02EF 


0A18 




ENA 


*18 


11*0 


P02F0 


68F8 




STA» 


STPCNT 


11*1 


P02F1 


C8FC 




LOA* 


ERSUB2 


11*2 


P02F2 


68EA 




STA* 


ERRSUB 


11*3 


P02F3 


*»8FA 




STQ* 


ERSUB2 


11** 


P02F«t 


18EE 




JMP* 


ES2 



<TEHP STORAGE) 



CTEHP STORAGE) 



0112* 
01125 
01126 
01127 

01128 
01129 

01130 
01131 

01132 
01133 
0113* 
01135 

01136 



01138 
01139 
011*0 
011*1 
011*2 
011*3 
Oil** 



11*6 P02F5 0000 
11*7 P02F6 5*00 

P02F7 06C2 
11*8 P02F8 5*00 

P02F9 012A 
11*9 P02FA C*00 

P02FB 0018 
115»fPB2FC 8103 

1151 P02FO 08«»«f 

1152 P02FE 5*00 
P02FF 0079 



SUB31 



NUM 
RTJ+ 



SPACEL 


RTJ* 


SEL211 


LDA+ 


LPTYPE 


SAZ 
CLP 
RTJ* 


3 
A 
SOATA 



FUNCTION LINE SPACE. 
FCN CLR, ALRM INT IF.S/J WORD POSITIVE. 



OUTPUT CONTROL CHARACTER. 



011*6 
011*7 

011*8 

011*9 

01150 
01151 
01152 



L 



60221200 
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o 
o 
o 



n 



O 

o 
o 
o 
o 
o 
o 
o 





LP100C 


1153 


P0300 


COOO 




P0 301 


2021 


llSh 


P0302 


5*00 




P0303 


009E 


1155 


P030* 


8000 




P0305 


0202 


1156 


P0306 


EOOO 




P0307 


6061 


1157 


P0308 


08 72 


1158 


P0309 


01*1 


1159 


P030A 


18F7 


1150 


P0303 


1CE9 


1162 






1163 






116* 






1166 






1167 






1168 






1169 


P030C 


58E8 


1170 


P030O 


5C06 


1171 


P030E 


5C66 


1172 


P030F 


18FC 



RDATA 



PAGE 


29 


LOA 


=N$2021 


RTJ* 


OATA 


ADO 


=N$0202 


LDQ 


=N$6061 


EAQ . 
SQZ 
JMP» 
JMP» 




1 

ROATA 

CSUB31) 



DATE! 10/20/7* 



*33333333333333 333333333333333333333333333333333333333333333333333333333 

* SECTION 3 - PRINT 

* 

* SECTION 3, LOOP 1 CLEAR PRINTER, PRINT ALL CHARACTERS, 

* WAIT NOT BUSY, GET STATUS, EXPECT $0 019 
SEC3 RTJ» SUB31 

RTJ» CXPRINT1 PRINT ALL CHARACTERS. 

RTJ* (XSUB11J CHECK FOR UNEXPECTED STATUS. 

JHP* SEC3 REPEAT CONDITIONS 



117*i 


* 






1175 


* 


SECTION 


3, LOOP 2, 


1176 P031Q 5800 


L00P32 


RTJ 


SUB31 


P0 311 FFE3 






j 


1177 P0312 5*00 




RTJ- 


fO) 


1178 P0313 0568 P 


XPRINT 


AOC 


PRINT 


1179 P031* F800 




LDQ 


EQUIP 


P0315 FCFO 








1180 P0316 C06C 


S32A 


LOA- 


CLINT 


1181 P0317 0302 




OUT 


S32ER-*-l 


1182 P0318 180* 




JMP» 


S32B 


1183 P0319 0B00 




NOP 





113* P031A 0C1B 


S32ER 


ENQ 


$1B 


1185 P031B 5802 




RTJ* 


ERSUB2 


1186 PQ31C 5800 


S32B 


RTJ 


SHM 


P031D F0A6 








1187 P031E 0A10 




ENA 


$10 


1138 P031F 5«»06 




RTJ- 


(JUHPJ 


1189 P0320 18EF 




JMP» 


L00P32 



CLEAR PRINTER, PRINT ALL CHARACTERS, 
SPACE A NO GNERATE DATA 

FUNCTION PRINT. 



ERROR IB 



REPEAT CONDITIONS 



01153 

0115* 

01155 

01156 

01157 
01158 
01159 
01160 



01162 
01163 
0116* 

01166 
01167 
01168 
01169 
01170 
01171 
01172 



0117* 
01175 
01176 

01177 
01178 
01179 

01180 
01181 
01182 
01183 
0118* 
01185 
01186 

01187 
01188 
01189 



6022120tt F- 
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LPJ 


looc 




PAS 


1191 




* 




1192 




* 


SECT 


ii9a 




♦ 




1194 




* 




1195 P0321 


58D3 


L00P33 


RTJ* 


1196 P0322 


5CF0 




RTJ» 


1197 P0323 


5800 




RTJ 


P0324 


FD9F 






- 1198 P0325 


0844 




CLR 


1199 P0326 


6800 




STA 


P0327 


0139 






1200 P0328 


COOO 


S33B 


LOA 


P0329 


2020 






1201 P032A 


FOOO 




LDQ- 


1202 P0329 


0000 


EQTO 


NUM 


1203 P032C 


0302 




OUT 


1204 P032D 


180F 




JMP» 


1205 P032E 


0900 




NOP 


1206 P032F 


5400 




RTJ+ 


P0330 


021C P 






1207 P0331 


C400 




L0A+ 


P0332 


0460 P 






1208 P0333 


6400 




STA* 


P0 334 


OOBF P 






1209 P0335 


«t400 




STQ+ 


P0336 


OOCO P 






1210 P0337 


0A28 




ENA 


1211 P0338 


0C14 




ENQ 


1212 P0339 


5400 




RTJ* 


P033A 


02DO P 






1213 P0338 


1806 




JMP* 


1214 P033C 


5800 


S33A 


RTJ 


P0330 


F086 






1215 P033E 


5400 




RTJ* 


P033F 


01E8 P 






1216 P0340 


18E7 




JHP» 


1217 P03M 


0A1O 


S33C 


ENA 


1218 P0342 


5406 




RTJ- 


1219 P03«»3 


1800 




JHP* 



OATEI 10/20/74 



SECTION 3, LOOP 3, CLEAR PRINTER, PRINT ALL CHARACTERS, 

WAIT NOT BUSY, ATTEMPT OUTPUTTING 68 WOROS, EXPECT NO 

EXTERNAL REJECT 

SUB31 

(XPRTNT) PRINT. 

SHM 



A 
WOCNT 

=N$2020 





2 

S33A 



CNT 

WOCNT 

ACT1 

EXP1 

$28 
$l<t 
ERRSUB 

S33C 
SMM 

CHKCNT 

S33B 
$10 

IJUMP) 
LOOP33 



CLEAR WORD COUNT 



LOOP FOR 136 PRINT CHARACTERS. 



REPEAT CONDITIONS 



01191 
01192 
01193 
01194 
01195 
01196 
01197 


r 
v. 

c 


01198 
01199 


v.. . 


01200 


c 

v. - 


01201 
01202 
01203 
01204 
01205 
01206 


c 


01207 




01208 




01209 


\ 


01210 
01211 
01212 


c 


01213 
01214 


c 


01215 


01216 
01217 
01218 
01219 


c 



1221 


~ 




..*. .. 




1222 






* 


SECT 


1223 






* 




1224 






* 




1225 


P03<»4 


58B0 


L00P34 


RTJ» 


1226 


P0345 


0A1A 




ENA 


1227 


P03«»6 
P03<t7 


5400 
0103 P 




RTJ* 


1228 


P0348 


08t»2 




CLR 



, LOOP 4, CLEAR PRINTER AND SELECT EOP INTERRUPT, 
PRINT ALL CHARACTERS, EXPECT INTERRUPT, 
EXPECT INTERRUPT STATUS $0010 
SUB31 

$1A 
SEL2 



01221 
01222 
01223 
01224 
01225 
01226 
01227 

01228 



60221200 
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o 



o 
o 
o 
o 



o 
o 
o 



LP100C 


PAGF 


31 


1229 P0349 


4800 


STQ 


EF 


P034A 


0<*04 






1230 P034B 


5CC7 


RTJ* 


(XPRINH 


1231 P03t»C 


■5800 


RTJ 


SHM 


P03W 


F076 






1232 P034E 


08 00 


LOA 


EF 


P034F 


03FF 






1233 P0350 


ocoo 


ENQ 


$0 


1234 P0351 


532A 


RTJ* 


SUB42 


1235 P0352 


001D 


NUM 


SID 


1236 P0353 


18F0 


JMP* 


L00P34 



QATEX 10/20/74 



PRINTr 



*** ERROR = NO FOP INTERRUPT 



REPEAT CONDITIONS 



1238 






* 




1239 






* 


SECT 


1240 






♦ 




1241 






* 




1242 


P0354 


58A0 


LOOP35 


RTJ* 


1243 


P0355 
P0356 


4800 
FF84 




STQ 


1244 


P0357 


5CB3 




RTJ* 


1245 


P0358 


0A16 




ENA 


1246 


P0359 
P035A 


5800 
FDA8 




RTJ 


1247 


P0353 
P035C 


5800 
F067 




RTJ 


1248 


P0350 
P035E 


C800 
FF7C 




LDA 


1249 


poss^ 


OCOF 




ENQ 


1250 


P0360 


5818 




RTJ* 


1251 


P0361 


0O1D 




NUM 


1252 


PT362 


18F1 




JMP* 



SECTION 3, LOOP 5, CLEAR PRINTER, INITIATE PRINT OPERATION, 

SELECT OATA INT. AND CLEAR INTERRUPT, 

EXPECT DATA INTERRUPT, EXPECT INTERRUPT STATUS $0010 
SUR31 
OF CLEAR OATA INTERRUPT FLAG 

(XPRINT1 PRINT. 

$16 

SEL2 00 NOT SELECT ALARH INT. IF S/J WORD IS MINUS 



SHM 

OF 

*E 

SUB42 
$1P 
L00P35 



*** ERROR E = NO DATA INTERRUPT 



1254 






* 






1255 






* 


SECTION! 


3, LOOP 6 


1256 






» ■' 






1257 






* 






1258 






* 






1259 


P0363 


5C17 


L00P36 


RTJ* 


(XSPACEL) 


1260 


P0 36J* 


5C6C 




RTJ* 


CYCLRPI 


1261 


P0365 
P0 366 


C4Q0 
0013 P 




LDA* 


LPTYPE 


1262 


P0367 


0101 




SAZ 


1 


1263 


P0368 


1803 - 




JMP* 


XSUB11-1 


1264 


P0369 
P036A 


5800 
F033 




RTJ 


OATA 



OUTPUT ILLEGAL CHARACTER, EXPECT 
STATUS, PRINT, WAIT NOT BUSY, EX 
ALARM STATUS 

FUNCTION LINE SPACE. 
CLEAR PRINTER. 



01229 

01230 
01231 

01232 

01233 
01234 
01235 
01236 



01238 
01239 
01240 
01241 
01242 
01243 

01244 
01245 
01246 

01247 

01248 

01249 
01250 
01251 
01252 



01254 
01255 
01256 
01257 
01258 
01259 
01260 
01261 

01262 
01263 
01264 



o 
o 



60221200 
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LP100C 



1265 


P036B 


5« 00 




P036C 


F057 


1266 


P036D 


BOOO 




P036E 


0039 


1267 


P036F 


0102 


1268 


P0370 


5«00 




P0371 


F098 


1269 


P0372 


5CA0 


1270 


P0373 


5«tOO 


1271 


P037«t 


011E 


1272 


P0375 


OBOD 


1273 


P0376 


5C5A 


1271* 


P0377 


5*00 




P0378 


0059 


1275 


PQ379 


18E9 



P XSUB11 



PAGE 32 

RTJ 

EOR 

SAZ 
RTJ 

RTJ* 

RTJ- 

AOC 

NOP 

RTJ* 

RTJ* 

JMP* 



OATEt 10/20/7** 



1277 P037A 06C2 P XSPACEL AOC 



SMM 
=N$0039 

2 

ERR1 

(XPRINT) 
<0> 

SUB11 



<YCLRP> 

REPCON 

L00P36 
SPACEL 



EXPECT ALARM STATUS 

ERROR COOE 7, UNEXPECTED STATUS 
PRINT. 



CLEAR PRINTER. 
END SECTION. 

RETURN FOR CONDITION REPEAT. 



01265 

01266 

01267 
01268 

01269 
01270 
01271 
01272 
01273 
0127* 

01275 

01277 



1279 


P037B 


0000 


SUB*2 


NUN 


1280 


P037C 


one 




SAN 


1281 


P037O 


COOO 




LOA 




P0 37E 


0396 


P 




1282 


P037F 


6*00 




STA+ 




P0380 


0200 


P 




1283 


P0381 


**00 




STQ* 




P0382 


02EE 


P 




128<* 


P0383 


0A18 




ENA 


1285 


P038* 


6«»00 




STA* 




P0385 


02E9 


P 




1286 


P0386 


C8F* 




LOA* 


1287 


P0387 


1*00 




JMP* 




P0388 


02E3 


P 




1288 


P0389 


C*O0 


SUB«t2A 


LDA* 




P038A 


07*0 


P 




1289 


P0389 


6*00 




ST A* 




P038C 


00 80 


P 




1290 


P038D 
P038E 


A000 
F07F 




AND 


1291 


P038F 


BCE8 




EOR* 


1292 


P0390 


0105 




SAZ 


1293 


P0391 


E8E9 




LOQ* 


129* 


P0392 


**00 




STQ* 




P0393 


oioa 


P 




1295 


P039* 


1*00 




JMP* 




P0395 


0109 


P 




1296 


P0396 


D8E«f 


ENDS«*2 


RAO* 


1297 


P0397 


0A10 




ENA 


1298 


P0399 


5*06 




RTJ- 


1299 


P0399 


1CE1 




JMP* 


1300 


P019A 


D8F0 




RAO* 


1301 


P039B 


1CDF 




JMP* 





SUB«»2A-*-l 

=XEN0S«»2 

ERRSUB 

ERSUB2 

S18 
STPCNT 

SUB<i2 
ES2 

INTSTAT 

ACT 

=N*F07F 

(SUB«f2) 
EN0S'»2-*-l 
SUB*2 
ERR1 

ERR1*1 

SUe«f2 

$10 

(JUMP) 

(SUB*2) 

SUB*2 

(SUB«»2) 



SKIP IF NO ERROR, 



DROP BITS 7 ANO 9 



REPORT UNEXPECTED STATUS, COOE 7 



CHECK S/J REPEAT CONDITION BIT. 
NOT SET. 



01279 
01260 
01281 

012B2 

01283 

0128* 
01285 

01286 
01287 

01288 

01289 

01290 

01291 
01292 
01293 
0129* 

01295 

01296 
01297 
01298 
01299 
01300 
01301 



r" 



60221200 F 
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o 
o 
o 

o 

o 
o 
o 
o 



o 
o 
c 



LP100C 



1303 
1304 
1305 

1307 
1308 
1309 

1310 P039C 0A11 

1311 P0390 5364 

1312 P039E 5CD5 

1313 P039F 18FC 
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DATE! 10/20/71* 



************************************************************************ 

* SECTION 4 - OPERATIONS 

*if44444<»i f M»<f {»(»(»<» J, <tl»4(ftf44444444444444444 44444444 4444444444444444444444444 



SFC4 



1330 
1331 
1332 

1333 P03AU 0A11 

1334 P0 3AE 5853 

1335 P03AF 0A01 

1336 P03B0 E800 
P0 3B1 FC54 

1337 P03B2 0301 

1338 P03B3 OBOO 

1339 P0384 5800 
P0385 FHOE 

1340 P03B6 0A10 
13M P03B7 5406 
1342 P03B8 18F4 



60221200 F 



L00P<f3 



SECTION If, LOOP 1 



CLEAR PRINTER, SINGLE SPACE, GET 
EXPECT $0019 



ENA 


$11 


RTJ* 


SUB41 


RTJ* 


(XSUB11) 


J MP* 


SEC4 



1315 






* 




1316 






* 


SECT 


1317 






* 




1318 






* 




1319 


P03A0 


0844 


L00P4? 


CLP 


1320 


P03A1 
P03A2 


6400 
074E P 




STA* 


1321 


P03A3 


0A19 




ENA 


1322 


P03A4 


5850 




RTJ* 


1323 


P03A5 
P03A6 


5800 
F010 




RTJ 


1324 


P03A7 
P03A8 


C800 
03A6 




LOA 


1325 


P03A9 


OCOD 




ENO 


1326 


P03AA 


5800 




RTJ* 


1327 


P03A8 


0010 




NUM 


1328 


P03AC 


18F3 




JMP* 



SECTION 4, LOOP 2 



A 

EF 

$19 
SUB41 

SMM 

EF 

SO 
SUBi|2 

Sin 

L00P42 



CLEAR PRINTER, SELECT EOP INTERR 
SPACE, EXPECT INTERRUPT WITH STA 
$0010 



*** ERROR = NO EOP INTERRUPT 



SECTION «f, LOOP 3 



ENA 
RTJ* 
ENA 
LOQ 

OUT 
NOP 
RTJ 

ENA 

RTJ- 

JMP* 



$11 
SUB«fl 
1 
EQUIP 

1 

SMM 

$10 

(JUMP) 

LOOP*** 



CLEAR PRINTER, SPACE, SELECT CLE 
TER\ EXPECT EXTERNAL REJECT 



01303 
0130«i 
01305 

01307 
01308 
01309 
01310 
01311 
01312 
01313 



01315 
01316 
01317 
01318 
01319 
01320 

01321 
01322 
01323 

01324 

01325 
01326 
01327 
01328 



01330 
01331 
01332 
01333 
01334 
01335 
01336 

01337 
01338 
01339 

013%0 
01341 
01342 
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DATE! 10/20/74 



1344 






* 






1345 






* 


SECTION 


4, LOOP ' 


1346 






* 






13*»7 






* 






1348 


P03B1 


0A11 


L00P'»4 


FN A 


$11 


13<»9 


P03BA 


5347 




RTJ» 


SUB41 


1350 


P03BB 


0844 




CLR 


A 


1351 


P03BC 
P03Bf) 


6800 
FF10 




STA 


OF 


135? 


P03BE 


C060 




LOA- 


OIREO 


1353 


P03BF 
P03CD 


6800 
038F 




STA 


RF 


1354 


P03C1 
P03C? 


5800 
F032 




RTJ 


SELO 


1355 


P03C3 
P03C<» 


5800 
FCFF 




RTJ 


SMM 


1356 


P03C5 
P03C6 


C800 
0381 




LDA 


INTF 


1357 


P03C7 


OCOE 




EMQ 


$E 


1358 


P03C8 


58B2 




RTJ* 


SUB42 


1359 


P03C9 


onio 




NUM 


$10 


1360 


P03CA 


18EE 




JHP» 


L00P44 



CLEAR PRINTER, SPACE, SELECT OAT 
UPT EXPECT INTERRUPT WITH STATUS 
$001D 



CLEAR DATA INTERRUPT FLAG 



»*» ERROR E = NO DATA INTERRUPT 



01344 
01345 
01346 
01347 
01348 
01349 
01350 
01351 

01352 
01353 

01354 

01355 

01356 

01357 
01358 
01359 
01360 



1362 




* 






1363 




* 


SECTION 


4, LOOP ' 


1364 




* 






1365 




* 






1366 




* 






1367 




* 






1368 




* 






1369 




* 






1370 




* 






1371 




* 






1372 




* 






1373 P03C3 


C800 


L00P45 


LDA 


LPTYPE 


P03CC 


FC»B 








1374 P03CD 


0101 




SAZ 


1 


1375 P03CE 


1830 




JMP* 


S45B+1 


1376 P03CF 


5400 




RTJ- 


(0) 


1377 P0 3D0 


01*fB P 


YCLRP 


AOC 


CLRP 


1378 P03D1 


0844 




CLP 


A 


1379 P03O2 


6800 




STA 


INTF 


P03D3 


0374 








1380 P03O4 


6800 




STA 


DF 


P0305 


FF05 








60221200 F 









CLEAR PRINTER, SPACE, 
SELECT DATA, EOP, ALARM INTS, EX 
DATA INTERRUPT WITH STATUS $0010 
INTERRUPTS ANO SELECT EOP AND AL 
ERRUPTS, OUTPUT ILLEGAL CHARACTE 
EXPECT ALARM INTERRUPT WITH STAT 
$0030, SELECT END OF OP 
INTERRUPT, EXPECT EOP INT. WITH 
$0030 



SKIP IF 1742. 



CLEAR DATA INTERRUPT FLAG 



01362 
01363 
01364 
01365 
01366 
01367 
01368 
01369 
01370 
01371 
01372 
01373 

01374 
01375 
01376 
01377 
01378 
01379 

01380 
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V. y 



e 



v 



u 



o 



o 



LP100C 



pa: 



35 



DATE* 10/20/74 



.y 



O 
O 



o 



/-■ 



1381 

1382 

1383 
1384 
1385 

1386 
1387 

1388 

1389 

1390 
1391 
1392 
1393 
1394 
1395 

1396 

1397 
1398 

1399 

1400 
1401 
1402 
1403 
1404 

1405 
1406 
1407 
1408 
1409 
1410 

1411 



P0306 

P0307 

P0308 

P03D9 

P03DA 

P0303 

P03DC 

P03DO 

P03DE 

P030F 

P03E0 

P0 3E1 

P03E2 

P03E3 

P03E4 

P03E5 

P03E6 

P03E7 

P03E3 

P03E9 

P03EA 

P03EB 

P03EC 

P03ED 

P03EE 

P03EF 

P03F0 

P03F1 

P03F2 

P03F3 

P03F4 

P03F5. 

P03F6 

P03F7 

P03F8 

P03F9 

P03FA 

P03FB 

P03FC 

P03FD 

P03FE 

P03FE 

P0400 



6800 
0377 
6400 
02OC 
5C9F 
0A1C 
6800 
0372 
0A0E 
5800 
F014 
5800 
FCE1 
C800 
FEF6 
OCOE 
5894 
001D 
0B00 
0A10 
6800 
0364 
5800 
FD07 
0A00 
5800 
FCAD 
C800 
FEE9 
OCOC 
5886 
0.0 30 
OROO 
C800 
0356 
OCOO 
5880 
0030 
0800 
5C02 
5400 
006D. 
18CA 



S45A 



S45B 



STA 


EF 


STA* 


AF 


RTJ* 


(XSPACEL) 


EN A 


$1C 


STA 


RF 


ENA 


$E 


RTJ 


SELO 


RTJ 


SMM 


LOA 


OF 


ENQ 


$E 


RTJ* 


SUB42 


NUM 


$10 


NOP 





ENA 


$10 


STA 


RF 


RTJ 


SELO 


ENA 





RTJ 


OATA 


LDA 


AF 


ENQ 


$C 


RTJ* 


SUB42 


NUM 


$3D 


NOP 





LDA 


EF-, 


ENQ 


$0 


RTJ* 


SUB42 


NUM 


$30 


NOP 





RTJ* 


CYCLRO) 


RTJ* 


RE PC ON 



CLEAR EOP INTERRUPT FLAG 
CLEAR ALARM INTERRUPT FLAG. 
FUNCTION LINE SPACE. 



\ 



*** ERROR E = NO DATA INTERRUPT 



SELECT ALARM INTERRUPT 



OUTPUT ILLEGAL CHARACTER. 



JMP* 



L00P45 



*** ERROR = NO EOP INTERRUPT 

END* SECTION. 

RETURN FOR CONOITION REPEAT. 



01381 

01382 

01383 
01384 
01385 

01386 
01387 

01388 

01389 

01390 
01391 
01392 
01393 
01394 
01395 

01396 

01397 
01398 

01399 

01400 
01401 
01402 
01403 
01404 

01405 
01406 
01407 
0140 8 
01409 
01410 

01411 



o 



1413 P0401 0000 

1414 P0402 5400 
P0403 0103 

1415 P0404 5C00 
P0405 FF74 

1416 P0406 1CFA 



SUB41 



NUM 
RTJ+ 




SEL2 



IALARM INT NOT SELECTED IF S/J BIT 15 IS SET1 
RTJ CXSPACELJ FUNCTION LINE SPACE 
JMP* CSUB41I 



01413 
01414 

01415 

01416 



60221200 F 



PAGE 35 



LP100C 



PAGE 36 



DATE* 10/20/7* 



1*18 PO*07 OOOO CHAPCHK 

i*i9 runuo Erjoc 



NUM 



1*20 
1*21 

1*22- 
1*23 
1*2* 
1*25 
1*26 
1*27 
1*28 
1*29 



PQ*09 
P0*0A 
P0i»01 
P0*0G 
P0«»0O 
P0*0E 
P0*0F 
P0*1Q 
P0*11 
P0*12 
P0*13 



08B2 
FOOO 
9FFF 
0171 
B079 
E081 
08B2 
0O9F 
0171 
B071 
1CF3 



LAQ 


Q 


ADT 


=N-S6000 


SQH 


1 


EOR- 


BIT1* 


LOQ- 


HOOFF 


LAQ 


Q 


INQ 


-$60 


SQM 


1 


EOR- 


BIT6 


JMP* 


(CHARCHKI 



CHECK LIMITS OF UPPER CHARACTER, 
RESET TO $2X IF $6X. 



CHECK LIMITS OF LOWER CHARACTER. 



01*18 

n«hia 

01*20 
01*21 

01422 
01*23 
0142% 
01*25 
01*26 
01*27 
01*28 
01*29 



1*31 
1*32 

1*3* 
1*35 
1*36 
1*37 
1*38 
1*39 
1**0 
1**1 

1**2 
1**3 
1**»* 
1**5 
1**6 
1**7 
1**8 
1**9 
1*50 
1*51 
1*52 
1*53 
1*5* 
1*55 
1*56 
1*57 
1*58 
1*59 
1*60 
1*61 
1*62 

1*63 



» SECTION 5 - RIPPLE TEST 
•55555555555555555555555555555555555555555555555555555555555555555555555 



P0*1* 

P0*15 

P0*16 

P0*17 

P0*18 

P0*19 

POMA 

P0*1B 

P0*1C 

PO*10 

P0*1E 

POUF 

P0*20. 

P0*21 

P0*22 

P0*23 

P0*2* 

P0*25 

P0*26 

P0*27 

P0*28 

P0*29 

P0*2A 

P0*2B 

P0*2C 

P0*2O 

P0«»2E 

P0*2F 

P0*30 

P0*31 

P0*32 

P0*33 

P0*3* 



C000 

2021 

581F 

08«t2 

*0FF 

C82B 

58EC 

5*00 

009E P 

OOFF 

8000 

0202 

EOFF 

OOBB 

01*1 

18F6 

5830 

18F1 

5817 

081E 

C81D 

09C5 

0102 

09C5 

0111 

1800 

09C5 

0101 

18E6 

5800 

FC91 

1880 

FC3C 



SEC5 
S2021 

S51 



S52 



S202 



S5* 



S55 
S57 



LDA- 

NUM 

RTJ* 

CLR 

STQ- 

LOA» 

RTJ» 

RTJ+ 

RAO- 

ADO- 

NUM 

LDQ- 

INQ 

SQ.Z 

JMP» 

RTJ» 

JMP* 

RTJ» 

RAO* 

LOA* 

INA 

SAZ 

INA 

SAN 

JMP* 

INA 

SAZ 

JHP» 

RTJ 

JMP 





$2021 

SUB50 

Q 

I 

CHAR 

CHARCHK 

OATA 

I 



$202 

I 

-68 

S5*-*-l 

S52 

SUB71 

S51 

SUB51 

TEMP 

TEMP 

-58 

S55-»-l 

-58 

S57-»-l 

S50 

-58 

1 

S51 

SMM 

ENOSEC 



CLEAR PRINTER, SEL ALARM, FORMAT 



CHECK CHARACTER LIMITS. 

OUTPUT CHARACTERS TO PRINT BFR. 



INCREMENT LINE CHARACTERS. 



SKIP IF LINE BFR FULL. 

PRINT AND SPACE. 
tRETURN HERE IF REPEAT CONDITION SET1 
UPOATE CHARACTERS. 
UPDATE LINE COUNT. 



SKIP TO EJT AFTER 1ST PAGE. 
SKIP IF NOT END OF 2ND PAGE. 

SKIP TO END SECTION AFTER 3 PAGE 
END OF SECTION 



01*31 
01*32 

01*3* 
01*35 
01*36 
01*37 
01*38 
01*39 
01**0 
01**1 

01**2 
01**3 
01*** 
01**5 
01**6 
01**7 
01**8 
01**9 
01*50 
01*51 
01*52 
01*53 
01*5* 
01*55 
01*56 
01*57 
01*58 
01*59 
01*60 
01*61 
01*62 

01*63 






v. 
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V ) 



c. 



o 





LP100C 




PAGE 


37 


1465 


P0435 


0000 


SUB50 


NUM 





1466 


P0436 


680E 




STA* 


CHAR 


1467 


J>0437 


0842 




CLR 


Q 


1468 


P0438 


*»80O 




STQ* 


TEMP 


1469 


P0439 


5C»0 




RTJ* 


IXSEL211) 


1470 


P043A 
PD433 


5400 
06BA P 


S50 


RTJ* 


LVL10P 


1471 


P043C 


1CF8 




JMP* 


CSUB50) 


1473 


P043D 


0000 


SUB51 


NUM 





1474 


P043E 


08 06 




LOA* 


CHAR 


1475 


P043F 


8000 




AOO- 





1476 


P0440 


0101 


S101 


NUM 


$101 


1477 


P0441 


58C5 




RTJ* 


CHARCHK 


1478 


P04«»2 


6802 




STA* 


CHAR 


1479 


P0 443 


1GF9 




JMP* 


<SUB51> 


1481 


P0444 


0000 


CHAR 


NUM 





1482 


P0445 


0000 


TEMP 


NUM 


$0 



OATE1 10/20/74 



CLEAR PRINTER, SELECT ALARM INT 
PAGE EJECT. 



SHIFT NEXT LINE ONE CHARACTER. 



01465 
01466 
01467 
01468 
01469 
01470 

01471. 



01473 
01474 
01475 
01476 
01477 
01478 
01479 



01481 
01482 



o 

o 



1484 






******* 


****** 


1485 






*666666666666 


1486 






* ' 


S F 


1488 


P0446 


cooo 


SEC6 


LDA- 


1489 


P04«»7 


5959 


S5959 


NUM 


1490 


P0<»48 


58EC 




RTJ* 


1491 


P0449 


5.809 




RTJ* 


1492 


P044A 


58F2 




RTJ* 


1493 


P04t»B 


98FB 




SUB* 


1494 


P04UC 


0101 




SAZ 


1495 


P04HD 


1806 




JMP* 


1496 


P044E 
P044F 


5800 
FC74 


S61B 


RTJ 


1497 


P0450 
P0451 


1800 
FC1F 




JMP 


1499 


P0452 


0000 


SUB60 


NUM 


1500 


P0453 


0842 


S61 


CLR 


1501 


P0«f54 


40FF 




STQ- 


1502 


P0455 


C8EE 




LOA* 


1503 


P0456 
P0457 


5<t00 
009E P 


S62 


RTJ+ 


1504 


P0458 


DOFF 




RAO- 


1505 


P0459 


EOFF 




LBQ- 


1506 


P045A 


OOBB 




INQ 


1507 


P045B 


0141 




SQZ 


1508 


P0*»5C 


18F9 




JMP* 



************************************************************************ 

*666666666666666666666666666666666666666666666666666666 66666666666666666 
CTION 6 - ALL POSITIONS 





$5959 

SUB50 

SUB60 

SUB51 

S5959 

1 

S61 

SMM 

ENOSEC 





Q 

I 

CHAR 

DATA 

I 
I 

-68 

S63-*-l 

S62 



CLEAR PRINTER, SEL ALARM, FORMAT 
FILL PRINT BFR, PRINT, SPACE. 
UPDATE CHARACTERS. 



END OF SECTION 



OUTPUT CHARACTERS TO PRINT BFR. 



SKIP IF BFR FULL. 



01484 
01485 
01486 

01488 
01489 
01490 
01491 
01492 
01493 
01494 
01495 
01496 

01497 



01499 
01500 
01501 
01502 
01503 

01504 
01505 
01506 
01507 
01508 



60221200 
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n 



LP100C 



PAGE 38 



OATEI 10/20^7* 



1509 


P0*5D 


580* 


S63 


RTJ* 


1510 


P0*5£ 


18FU 




JMP* 


1511 


Pfl*5F 


1CF2 




JMP* 


1512 


P0*60 


0000 


WDCNT 


NUM 


151* 


P0*61 


0000 


SUB71 


NUM 


1515 


P0*62 
P0*63 


5U0O 
05E8 P 




RTJf 


1516 


P0*6*t 


5<»06 




RTJ- 


1517 


P0*63 


1802 




JMP* 


1518 


P0*66 


D8FA 




RAO* 


1519 


P0*67 


1CF9 




JMP* 


1521 


P0*68 


0000 


SUB72 


NUM 


1522 


P0*69 


091*1* 




CL* 


1523 


P0<f6A 


68F5 




STA* 


152* 


P0*6B 


C3F* 


S71B 


LOA* 


1525 


P0*6C 


BOFF 




EOR- 


1526 


P0«»6D 


01Q6 




SAZ 


1527 


P0*6E 


COFF 




LQA- 


1528 


P0*6F 


5*0A 




RTJ- 


1529 


P0*7O 
P0*71 


5*00 
009E P 




RTJ+ 


1530 


P0*72 


08E0 




RAO* 


1531 


P0*73 


18F7 




JMP* 


1532 


P0*7* 


53EC 


S71C 


RTJ* 


1533 


P0*75 


18F3 




JMP* 


153«f 


P0*76 


COFF 




LOA- 


1535 


P0*77 


1CF0 




JMP* 



SUB71 
S61 

(SUB60» 




PRNTSPC 

(JUMP) 
*+2 
SU371 
(SUB71) 



A 

WDCNT 

WDCNT 

I 

S71C-*-l 

I 

(CONVI 

OATA 

WDCNT 

S71B 

SUB71 

SUB72+1 

I 

CSUB72) 



PRINT AND SPACE. 

RETURN HERE FOR REPEAT CONDITION 



PRINT LINE AND SINGLE SPACE. 



REPEAT CONDITIONS, 
OR CONTINUE TO NEXT. 



LOAD PRINT BUFFER. 



REPEAT CONDITION. 



01509 
01510 
01511 
01512 



0151* 
01515 

01516 
01517 
01518 
01519 

01521 
01522 
01523 
0152* 
01525 
01526 
01527 
01528 
01529 

01530 
01531 
01532 
01533 
01531. 
01535 



s~ 



1537 
1538 
1539 



* ■ SECTION 7 -VARIABLE BUFFER 01538 

♦77777777777777777777777777777777777777777777777777777777777777777777777 01539 



f ' 



15*1 P0*78 


5*00 


SEC7 


RTJ- 


(0) 


15*2 P0*79 


012A P 


XSEL211 


ADC 


SEL211 


15*3 P0*7A 


08*«f 




CLR 


A 


15** P0*7B 


60FF 




STA- 


I 


15*5 P0*7C 


58EB 


LOOP71 


RT J* 


SUB72 


15*6 P0*70 


DOFF 




RAO- 


I 


15*7 P0*7E 


09BC 




INA 


-67 


15*8 P0*7F 


0101 




SAZ 


L00P72-*-l 


15*9 P0*80 


18E8 




JMP* 


SUB72+1 


1551 P0*81 


58E6 


LO0P7? 


RTJ* 


SUB72 


1552 P0*82 


0103 




SAZ 


3 


1553 P0*83 


09FE 




INA 


-1 


155* P0*8* 


60FF 




STA- 


I 


1555 P0*85 


18E3 




JMP* 


SUB72+1 


1556 P0*86 


68 BE 




ST A* 


TEMP 



FCN CLR, ALRM INT IF S/J WORD POSITIVE. 



015*1 
015*2 
015*3 
015** 
015*5 
015*6 
015*7 
015*8 
015*9 

01551 
01552 
01553 
0155* 
01555 
01556 



c 



60221200 
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L. 



o 



O 



r '\ 



KJ 



LP100C 



1557 P0487 60FF 



PAGE 39 



STA- 



DATE* 10/20/71* 



1559 


P0488 


58DF L00P73 RTJ* 


1560 


P0489 


D8B3 


RAO* 


1561 


P048A 


C8BA 


LDA* 


1562 


P048B 


9000 


SUB 




P048C 


008A 




1563 


P048O 


010B 


SAZ 


1564 


P048E 


C8B6 


LDA* 


1565 


P048F 


A06O 


AND- 


1566 


P0490 


0104 


SAZ 


1567 


PQ491 


0A44 


ENA 


1568 


P0492 


90FF 


SUB- 


1569 


P0493 


60FF 


STA- 


1570 


P0494 


1804 


JMP* 


1571 


P0495 


C8AF 


LDA* 


1572 


P0496 


OF^l 


ARS 


1573 


PBW 


60FF 


STA- 


1571* 


P0498 


18D0 


JMP* 


1576 


P0499 


5800 S74 


RTJ 




P049A 


FC29 




1577 


P049B 


1800 


JMP 




P049C 


FBQtf 





SU87? 
TEMP 
TEMP 
=N138 

S74-*-l 

TEMP 

CONST 

4 

68 

I 

I 

SUB72+1 

TEMP 

1 

I 

SUB72+1 

SMM 

FNDSEC 



END OF SECTION 



01557 

01559 
01560 
01561 
01562 

01563 
01564 
01565 
01566 
01567 
01568 
01569 
01570 
01571 
01572 
01573 
0157*1 

01576 

01577 



( ) 



1579 






1580 






1581 






1583 


P0*»9D. 


C.C03 


1584 


P049E 


0FC8 


1585 


P049F 


8400 


1586 


POtfAO 


0017 


1537 


PO<tAl 


5893 


1588 


P0ifA2 


58AF 


1589 


P04A3 


08A1 


1590 


P04A4 


C8A0 


1591 


P04A5 


0987 


1592 


P04A6 


0101 


1593 


P04A7 


18AB 


1594 


P04A8 


5800 




P04A9 


FC1A 


1595 


P04AA 


1800 




PO«fAB 


F9C5 



*************** ************************************ ********** *********** 

* SECTION 8 • - CLARITY TEST 

♦88 88888888 838 38888888888 8888 88 8888 88 88888 8 88888888 8888 88888888 8888 88888 



SFC8 



P XCHAR8 



S81 



LDA* 


(XCHAR31 


ALS 


8 


ADH- 


<0» 


AOC 


CHAR8 


RTJ* 


SUB50 


RTJ* 


SUB60 


RAO* 


TEMP 


LOA* 


TEMP 


INA 


-120 


SAZ 


1 


JMP* 


S61 


RTJ 


SMM 



LOAD PARAMETER CLARITY CHARACTER 



CLEAR PRINTER, SEL ALARM* FORMAT 
FILL PRINT BFR, PRINT, SPACE. 



JMP 



ENDSEC 



END OF SECTION 



01579 
01580 
01581 

01583 
01584 
01585 
01586 
01587 
01588 
01589 
01590 
01591 
01592 
01593 
01594 

01595 



o 



1597 
1598 
1599 



*********** **************************************************** ********* 01597 
* SECTION 9 - ALIGNMENT TEST 01598 

•99999999999999999999999999999999999999999999999999999999999999999999999 01599 



o 



60221200 F 
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o 



LPiOOC 



1601 P04AC COOO 
P04AO 2020 

1602 P04AF 1RF2 



SEC9 



PAGF 


f»0 


LOA 


=N«R2n2D 


JHP* 


S31-1 



DATE* 10/20*74 



HYPHENS 



01601 
01602 



1604 




******* ************* Vf*f*f« **»*»! 


1605 




* 


SEC 


T I N 10 


1606 




♦AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


1608 


PO*tAF 5i»00 
PO^BO 014B P 


SEC1H 


RTJ+ 


CLRP 


1609 


P04B1 5«»00 
P0<»B2 06RA P 




RTJ4- 


LVL10P 


1610 


P0U83 OAOO 




ENA 


MESSA-LPH1 


1611 


P0<*84 OCOE 




ENQ 


MESSB-MESSA-1 


1612 


P0485 5l»00 
P0«f36 0649 P 




RTJf 


LPMSG 


1613 


P04B7 5850 




RTJ* 


SU9101 


1614 


P04B3 COOO 
P0499 065E P 




LOA 


=XMESSA-1 


1615 


P049A ocin 




ENQ 


MESSB-MESSA+1 


1616 


P0*t9B 5408 




RTJ- 


(HESSAG) 


1617 


P04BC 0A10 




ENA 


J10 


1618 


PO«»BD 6800 
P049E 0291 




STA 


RF 


1619 


PO^BF C06F 




LDA- 


ALIREQ 


1620 


P04C0 5800 
P04C1 FC33 




RTJ 


SELO 


1621 


P0«»C2 0A01 




ENA 


1 


1622 


P04C3 A049 




AN9- 


INFORM 


1623 


P0<»C40i0i 




SA7 


1 


1624 


P04C5 18F0 




JMP* 


*-2 


1625 


P04C6 COOO 
P04C7 17«*2 




LOA 


=N*17i»2 


1626 


P04C8 0822 




TRA 


Q 


1627 


P04C9 0000 




SLS 





1628 


P04CA 5800 
P04CB FC10 


L00PA1 


RTJ 


STAT 


1629 


P04CC BOOO 
P0«»C9 0038 




EOR 


=N$38 


1630 


P04CE 0102 




SAZ 


2 


1631 


P04CF 5800 
P04D0 FC39 




RTJ 


ERRi 


1632 


P0401 0A10 




ENA 


$10 


1633 


°04D2 5406 




RTJ- 


(JUHPI 


1634 


P0«»D3 18F6 




JMP* 


L00PA1 


1635 


P0404 08«»4 


L00PA2 


CLR 


A 


1636 


P04D5 6800 
P04D6 0271 




STA 


INTF 


1637 


P0407 5300 
P0«»D8 F3EB 




RTJ 


SMM 


1638 


P0409 COOO 
P04DA FE01 

60221200 F 




LDA 


ftp* 



CLEAR PRINTER. 



SELECT ALARM INTERRUPT 



WAIT TTY NOT BUSY. 



STOP 

GET STATUS 

EXPECT 38 



ERROR CODE 7, UNEXPECTED STATUS 

REPEAT CONDITIONS 
CLEAR INTERRUPT FLAG 

CHECK ALARM FLAG 



01604 
01605 
01606 

01608 

01609 

01610 
01611 
01612 

01613 
01614 

01615 
01616 
01617 
01618 

01619 
01620 

01621 
01622 
01623 
01624 
01625 

01626 
01627 
01628 

01629 

01630 
01631 

01632 
01633 
01634 
01635 
01636 

01637 

01638 
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J 




LP100C 




PAGF 


HI 




1639 


P0408 


ncoc 




ENQ 


*c 





1640 


P04DC 


5400 




Rrj* 


SUB'*? 




P04DD 


0373 P 








16tfl 


P040E 


no3C 




NUM 


S3C. 




16<t2 


PQtfDF 


1RF4 




JMP* 


L0OPA2 




1643 


P04E0 


C068 


L00PA3 


LDA- 


CLEAR 




16<i4 


P04E1 
P04E2 


E800 
F323 




LDQ 


EQUIP 




16k5 


P04E3 


0301 




OUT 


1 




1646 


P04E«» 


OBOO 




NOP 





^ 


1647 


P04E5 


0A10 




ENA 


S10 


w 1 


1648 


P04F6 


5«»06 




RTJ- 


<JUMP) 




1649 


P04E7 


18F8 




JMP* 


LOOPA3 




1650 


POi+Ea 


C«*00 


LOOPAij 


LDA* 


LPTVPE 


^ / 




P04E9 


0018 P 








1651 


P04EA 


0113 




SAN 


LPAi»A-*-l 




1652 


P0i»E8 


0A02 




ENA 


2 




1653 


P04EC 


0C02 




ENQ 


2 


s— N 


165«» 


P04ED 


1803 




JMP* 


**3 


o 


1655 


P04EE 


0A01 


LPA^A 


ENA 


1 


1656 


P04EF 


OCFE 




ENQ 


-1 




1657 


P04F0 


F«»00 




AOq* 


EQUIP 






P04F1 


0006 P 








") 


1658 


P0«»F2 


0301 




OUT 


1 


1659 


P04F3 


oaoo 




NOP 







1660 


P0«fF4 


0A10 




ENA 


no 




1661 


P0*»F5 


5406 




RTJ- 


(JUMP) 




1662 


P04F6 


18F1 




JHP* 


LOOPAfc 


^J •' 


1663 


P0t»F7 
P0«»F3 


COOO 
2020 


L00PA5 


LOA 


=N$2020 


^~ s 


1664 


P04F9 
P04FA 


E800 
FE30 




LDQ 


EQIO 


V ) 


1665 


P04FB 


0301 




OUT 


1 


v_y 


1666 


P04FC 


0300 




NOP 


- 




1667 


P04FD 


0A02 




ENA 


2 


/"*" X 


1668 


P04FE 


A043 




AND- 


STJP 


( ) 


1669 


P04FF 


0115 




SAN 


LPA51-*-l 


w 


1670 


P3500 
P0501 


5400 
OODC P 


LPA50 


RTJ* 


STAT 




1671 


P0502 


A06B 




AND- 


3IT00 


f~") 


1672 


P0503 


0111 




SAN 


1 


O 1 - 


1673 


P050«f 


18FB 




JMP» 


LPA50 




1674 


P0505 


5C52 


LPA51 


RTJ* 


(XREPCONJ 


r~\ 


1675 


P0506 


18F0 




JMP* 


L00PA5 


U 


1677 


P0507 


0000 


SUR101 


NUM 







1678 


P0508 


5860 




RTJ* 


MUXPRNT 


/-- — \ 


1679 


P0509 
P050A 


5i»00 
068A P 




RTJ* 


LVL10P 




1*80 


P05Oa 


0A01 




ENA 


1 ■''■ 




1681 


P050C 


A049. 




ANO- 


INFORM 


o 


1682 


P0500 


0101 




SAZ 


1 


o 




60221200 F 









HATE* 10/20/74 



*** ERROR C = NO ALARM INTERRUPT 



REPEAT CONDITIONS 



OUTPUT SPACE FUNCTION 
OUTPUT SPACE CONTROL CHAR. 



CHECK END-OF-SECTION STOP BIT. 



CHECK REAOY- 

LOOP TIL READY. 

END SECTION. 

RETURN FOR CONDITION REPEAT. 



GO TO SHM WHILE PRINTING. 



01639 
01640 

01641 
01642 
01643 
01644 

01645 
01646 
01647 
01648 
01649 
01650 

01651 
01652 
01653 
01654 
01655 
01656 
01657 

01658 
01659 
01660 
01661 
01662 
01663 

01664 

01665 
01666 
01667 
01668 
01669 
01670 

01671 
01672 
01673 
01674 
01675 



01677 
01678 
01679 

01680 
01681 
01682 



PAGE HI 



( ) 



LP100C 



"AGE hZ 



DATE! 10/20/74 



1683 P050E 18FD 

1684 P050F 1CF7 



JMP* 
JMP* 



*-2 

ISUB101) 



01693 
01684 



1686 




******* **************** ********** 


1687 




* 


s e r, 


T I N 11 


1688 




♦BBB3BBBBBBSBBBBBBBRBBBBBBBB8BBBB 


1690 P0510 


5C64 


SEC11 


RTJ» 


<ZCLRP) 


1691 P0511 


5«iOO 




P.TJ+ 


LVL10P 


P0512 


063A P 








1692 P0513 


5400 




RTJ* 


CNT 


PQ51<t 


021C P 








1693 P0515 


FOOO 




AOQ 


= XFWA 


P0516 


0751 P 








1694 P0517 


OOFE 




INQ 


-1 


1695 P0518 


0700 




CPB 





1696 P0519 


0141 




sgz 


1 


1697 P051A 


18FC 




JMP* 


*-3 


1698 P0513 


0A1A 




ENA 


MESSB-LPM1 


1699 P051C 


0C1<» 




END 


MESS46-MESSB-1 


1700 P051O 


5400 




RTJ* 


LPMSG 


P051E 


06 M) P 








1701 P051F 


58E7 




PTJ* 


SUB101 


1702 P0520 


COOO 




LOA 


=XMESSB-i 


P0521 


0660 P 








1703 P0522 


0C16 




FNO 


MESS46-MESSB+1 


1704 P0523 


5408 




PTJ- 


(MESSAG) 


1705 P052't 


0A01 




ENA 


1 


1706 P0525 


A049 




AND- 


INFORM 


1707 P0526 


0101 




SAZ 


1 


1708 °0527 


18FD 




JMP» 


*-?. 


1709 P0523 


COOO 




LDA 


=NM742 


P0529 


1742 








1710 P052A 


0822 




TRA 


Q 


1711 P052B 


0000 




SLS 





1712 P052C 


5800 


L00PB1 


RTJ 


STAT 


P052D 


F9AE 








1713 P052E 


C800 




LOA 


ACT 


P052F 


F880 








1714 P0530 


A072 




AND- 


CONST4-7 


1715 P0531 


BO 72 




EOR- 


CONST+7 


1716 P0532 


0102 




SAZ 


2 


1717 P0533 


5800 




RTJ 


ER"1 


P053^ 


F305 








1718 P0535 


OfllO 




ENA 


$10 


1719 P0536 


5406 




RTJ- 


(JUMP) 


1720 P0537 


18F4 




JMP* 


LOOPB1 


1722 P0538 


842 


LO0PB2 


CLR 


Q 


1723 P0539 


CC6B 




LOA- 


CLEAR 


1724 P053A 


5R1F 




RTJ* 


CHKIO 



CLEAR PRINTER. 



ERROR COOE 7, UNEXPECTED STATUS 



OlfiBfi 
01687 
01688 

01690 
01691 

01692 

01693 

01694 
01695 
01696 
01697 
01698 
01699 
01700 

01701 
01702 

01703 
01704 
01705 
01706 
01707 
01708 
01709 

01710 
01711 
01712 

01713 

01714 
01715 
01716 
01717 

01718 
01719 
01720 

01722 
01723 
01724 



60221200 
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c 



r 



o 



LPiOOC 



PAG! 



«»3 



OATEI 10/20/74 



1725 


P053B 5406 




RTJ- 


(JUMP1 


1726 


P053C 18F9 




JHP* 


L00PB2 


1728 


f>053i) C40Q 
P053E 0013 P 


L00P33 


LOA* 


LPTYPE 


1729 


P053F 0103 




SAZ 


LPB3-*-l 


1730 


P0540 0A20 




ENA 


J20 


1731 


P0541 OCFE 




ENQ 


-1 


1732 


P0542 1803 




JMP» 


LPR31 


1733 


P0543 0A02 


LP03 


ENA 


2 


173i» 


P0544 0C02 




ENQ 


2 


1735 


P0545 5814 


LPB31 


RTJ* 


CHKIO 


1736 


P0546 5406 




RTJ- 


CJUMP) 


1737 


P0547 13F5 




JMP* 


L00P93 


1739 


P05«»3 COOO 
P0549 2020 


L0OPB4 


LOA 


=N$2020 


1740 


P054A OCFE 




ENQ 


-1 


1741 


P054B 580E 




RTJ* 


CHKIO 


17«»2 


P054C 0A02 




ENA 


2 


1743 


P0540 A043 




ANO- 


STJP 


1744 


P054E 0117 




SAM 


X9EPCON-*-2 


1745 


P05«tF 5400 
P0550 OOOC P 


LPB4 


RTJ* 


STAT 


1746 


P0551 C072 




LOA- 


BIT7 


1747 


P055? A400 
P0553 0080 P 




AND+ 


ACT 


1748 


P0554 0101 




SAZ 


1 


1749 


P0555 18F9 




JMP* 


LP84 


1750 


P0556 5400 




RTJ- 


(0) 


1751 


P0557 0060 P 


XPEPCON 


AOC 


REPCON 


1752 


P0558 18EF 




JMP* 


L00PB4 


1754 


P0559 0000 


CHKIO 


NUM 


-' 


1755 


P055A F400 
P0558 0006 P 




AOQ* 


EQUIP 


1756 


P055C 1803 




JMP* 


**3 


1757 


P055O 1807 




JMP* 


FRR16 CINT REJI 


1758 


P055E 1804 




JMP* 


XCHK «EXT REJI 


1759 


P055F 03FD 




OUT 


-2 


1760 


P0560 0C17 




ENQ 


$17 


1761 


P0561 1844 




JMP* . 


ERR16*1 


1762 


P0562 0A10 


XCHK 


ENA 


$10 


1763 


P0563 1CF5 




JMP* 


(CHKIOl 


1765 


P0564 0C16 


EPR16 


ENQ 


$16 


1766 


P0565 C8F3 




LOA* 


CHKIO 


1767 


P3566 14DQ 
P0567 0188 P 




JMP+ 


ERRX*2 


1769 


P0563 0000 


PRINT 


NUM 





1770 


P0569 C400 . 
P056A 0013 P 




LDA* 


LPTYPE 



SPACE 



CHECK ENO-OF- SECT ION STOP BIT, 

CHECK PROTECT STATUS. 

NO 

END SECTION. 

RETURN FOR CONDITION REPEAT. 



»*» ERROR 16 = INTERNAL REJECT, 
EXPECTING EXTERNAL. 

*** ERROR 17 = NO EXT REJ. 



01725 
01726 

01728 

01729 
01730 
01731 
01732 
01733 
01734 
01735 
01736 
01737 

01739 

01740 
Q1741 
01742 
01743 
01744 
01745 

01746 
01747 

01748 
01749 
01750 
01751 
01752 

01754 
01755 

01756 
01757 
0175ft 
01759 
01760 
01761 
01762 
01763 

01765 
01766 
01767 



01769 
01770 



60221200 * 
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.'"S 



v. 





LPionc 




PAGE 


44 


1771 


P056O 


0104 




SAZ 


NOTCR-*-l 


1772 


P056C 


0A20 




ENA 


$20 


1773 


P056O 
P056E 


5400 
0OF5 P 




RTJ+ 


SELO 


177«» 


P056F 


1CF8 




JMP* 


(PRINT) 


1775 


P0570 


OA01 


NOTCP 


ENfl 


1 


1776 


P0571 
P0572 


5400 
OOFF P 




RTJ+ 


SEL1 


1777 


P0573 


1CF«» 




JMP* 


(PRINT) 


1779 


P0574 


014B P 


ZCLRP 


AOC 


CLRP 


1781 


P0575 


0000 


MUXPRNT 


NUM 





1782 


P0576 


58F1 




RTJ* 


PRINT 


1783 


P0 577 
P0578 


5400 
00C4 P 




RTJ+ 


SMM 


1784 


P0579 


1CF8 




JMP* 


(MUXPRNT) 


1786 


P057A 


0000 


SU812 


NUM 





1787 


P057R 


58F9 




RTJ* 


MUXPRNT 


1788 


P057C 


C872 




LOA* 


COUNT 


1789 


P057D 


09F6 




INA 


-9 


1790 


P057E 


0870 




RAO* 


COUNT 


1791 


P057F 


0113 




SAN 


SUB12A 


1792 


P0580 


68 6E 




STA* 


COUNT 


1793 


P0581 


0A10 




ENA 


$10 


179«» 


P0582 


5406 




RTJ- 


(JUMP) 


1795 


P0583 


1CF6 


SUB12A 


JMP* 


(SUB12) 


1796 


P0584 


D8F5 




RAO* 


SU812 


1797 


P0585 


1CF4 




JMP* 


(SUB12) 


1798 


P0586 


1FFE 


LVLS 


NUM 


J1FFE 



DATE* 10/20/74 



SKIP IF 1740/42 



60 TO SMM WHILE PRINTING. 



*»** »*** FORMAT LEVELS 1 THRU 12 ENA8LE0, 



01771 
01772 
01773 

01774 

01776 

01777 

01779 

01781 
01782 
01783 

0178% 



01786 
01787 
01788 
01789 
01790 
01791 
01792 
01793 
01794 
01795 
01796 
01797 
01798 



1801 
1802 
1803 

1805 
1806 
1807 

18 08 P05S7 5400 
P0588 012A 

1809 P0589 0844 

1810 P058A 6864 

1811 P058B 6864 

1812 P058C 5400 
P058O 06C2 

1813 P058F. 0A2F 

1814 P058F 0C06 



************************************************************************ 

* SECTION 12 - SPACE, FORMAT TAPE LE 
♦CCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 



SEC12 



S46A 



SECTION 12, LOOP 1 

CLEAR PRINTER, PRINT, SINGLE SPACE 

RTJ* SEL211 FCN CLR, ALRM IMT IF S/J WORD POSITIVE. 



CLR 
STA* 
STA* 
RTJ+ 

ENA 
ENQ 



A 

COUNT 
LEVEL 
SPACEL 

MESS46-LPM1 
MESS47-MESS46 



SPACE LINE, 



01801 
01802 
01803 

01805 
01806 
01807 
01808 

01809 
01810 
01811 
01812 

01813 
01814 



60221200 
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V.. 



o 



o 



LP100C 



PAGE «f5 



OATEI 10/20/7* 



/"" 



o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 



1815 P0590 5U0Q RTJ- 10) 

1816 P0591 064D P XLPMSG ADC LPMSG 

1817 P0592 58E7 RTJ* SUB12 

1818 P0593 18F8 JMP* S^6A 



PRINT MESSAGE. 



1820 






* 




1821 






* 


SECT 


1822 


P059i» 


0C02 


L00FC2 


ENQ 


1823 


P0595 
P0596 


5*00 
06E3 P 




RTJ* 


182* 


P0597 


0A35 




ENA 


1825 


P0599 


oni)6 




ENQ 


1826 


P0599 


5CF7 




RTJ* 


1827 


P059A 


58DF 




RTJ* 


1828 


P059B 


18F8 




JMP* 


1829 


P059C 
P059D 


C800 
FA7A 


LPC2A 


LOA 


1830 


P059E 


0111 




SAN 


1831 


P059F 


180F 




JMP* 


1832 


P05A0 


0A03 


LPC23 


ENA 


1833 


P05AI 
P05A2 


5800 
FA06 




RTJ 


1834 


P05A3 

P05A«f 


5800 
0138 




RTJ 


1835 


P05A5 


084«» 




CLR 


1836 


P05A6 
P05A7 


5800 
FAD1 




RTJ 


1837 


P05A8 


0A3B 




ENA 


1838 


P05A9 


0C06 




ENQ 


1839 


P05AA 


5CE6 




RTJ* 


18*0 


P05AB 


58CE 




RTJ* 


18*1 


P05AC 


18EF 




JMP* 


1842 


P05AD 


5C45 




RTJ* 



SECTION 12, LOOP 2 
DSPACE 
FFORM 



60221200 



MESS47-LPM1 

MSS«t7A-MESS47 

(XLPMSG1 

SUB12 

L0OPC2 

LPTYPE 

LPC2B-*-l 
L00PC3 
TSPACE 
SOATA 

FPRINT 

A 
SOATA 

MSS*7A-LPM1 

MESS48-MSS47A 

CXtPNSG) 

SUB12 

LPC2A 

(YSEL211I 



SAME AS LOOP 1 EXCEPT OOUBLE SPA 
DOUBLE SPACE. 

PRINT MESSAGE. 



IS THIS A 93X2 

NO 

YES 
OUTPUT SPACE CONTROL CHARACTER 

GIVE PRINT FUNCTION TO SPACE 



SUPPRESS SPACE IN ACTUAL PRINF 



PRINT MESSAGE- TRIPLE SPACE 
CHECK FOR LOOP COUNT EXPIRED 
NOT EXPIRED - REPEAT 
FCN CLR, ALRM INT IF S/J WORD POSITIVE. 



18** 


* 






18*5 P05AE 0841 


LOOPC3 


RAO* 


LEVEL 


— 18*6 P05AF E840 




LOG*. 


- LEVEL 


1847 P05B0 C26B 




LOA- 


BITO0,Q 


18«»8 P05B1 A8D* 




AND* 


LVLS 


1 ...1849 R05a2. 0111 





SAN 


1 


1850 P05B3 18FA 




JMP* 


L00PC3 


1851 P05B* C83B 




LDA* 


LEVEL 


| -1852 PD585--09F5 


'.' _.. .i.. . 


UNA. ■•"--■ 


-$Ai 


1853 P05B6 0131. 




SAM 


1 


1 185* P05B7 0906 




INA 


S10-SA 



CONVERT TO DECIMAL. 



01815 
01816 
01817 
01818 



01820 
01821 
01822 
01823 

0182* 
01825 
01826 
01827 
01828 
01829 

01830 
01831 
01832 
01833 

0183* 

01835 
01836 

01837 
01838 
01839 
018*0 
018*1 
018*2 



018** 
018*5 
018*6 
018*7 
018*8 
018*9 
01850 
01851 
411852 
01853 
0185* 



PAGE *5 



LP100C 



PASE «»6 



DATE! 10/20/7** 



1855 P0598 090A 




INA 


$A 


1856 P05B9 5%0A 




RTJ- 


ICONVI 


t«57 PD5BA-6%i)0 


: 


STA* — ■ 


M%8A 


P0588 069E P 








1858 P058C E833 


S%8A 


LDQ* 


LEVEL 


XtrS^ -riryvij- GOtjc 




I«Q 


2 


1860 P05BE 5%00 




RTJ* 


FFORM 


P05SF 06E3 P 








1861 P05C0 0AM 




FN A 


MESS%8-LPM1 


1862 P05C1 OCOB 




ENQ 


L1MESS^MESS%8 


1863 P05C2 5CCE 




RTJ* 


IXLPMSG) 


186*1 P05C3 C82C 




LDA* 


LEVEL 


1865 P05C% 09FE 




INA 


-1 


1866 P05C5 0113 




SAN 


LPC3A-*-l 


1867 P05C6 OAifC 


TOF 


ENA 


L1MESS-LPM1 


1868 P05C7 0C06 




ENQ 


LXMESS-L1MESS 


1869 P05C8 181% 




JMP* 


LPC3C 


1870 P05C9 E%00 


LPC3A 


LOQ* 


LPTVPE 


P05CA 0018 P 








1871 P05CB 01%2 




SQZ 


LPC3B-*-l 


1872 P05CC 09FE 




INA 


-1 


1873 P05CD 010C 




SAZ 


BOF-*-l 


187% P05CE 09F9 


LPC3B 


INA 


-6 


1875 P05CF 0133 




SAM 


LEVX-*-l 


1876 P05O0 09FA 




INA 


-5 


1877 P0501 0151 




SQN 


1 


1878 P05O2 0107 




SAZ 


BOF-*-l 


1879 P0503 0906 


LEVX 


INA 


6 


1880 P05D% 5%0A 




P.TJ- 


C.HFXASC) 


1881 P05D5 6%00 




STAf 


LXMESS 


P05D6 06A6 P 








1882 P05O7 0A52 




ENA 


LXMESS-LPM1 


1883 P05D9 0C03 - 




ENQ 


LCMESS-LXMESS 


188% P05D9 1803 




JMP* 


LPC3C 


1885 P050A 0A55 


BOF 


ENA 


LCMESS-LPM1 


1886-P05DB 0G09 




ENQ 


MESSD-LCMESS 


1887 P050C 5871 


LPC3C 


RTJ* 


LPMSG 


1888 P05OO 5897 




RTJ* 


HUXPRNT 


1889 P05QE QAtO 




ENA —■- 


S10» 


1890 P05DF5%06 




RTJ- 


CJUMP) 


1891 P05EO 180B 




JMP* 


S%8A 


1892 P05E1 C80E 




LOA* 


LEVEL 


1893 P05E2 09F3 




INA 


-12 


189% P05E3 0101 


* 


SAZ 


1 


1895 P05E%-18C9 




JMP* 


L00PC3 


1896 P05E5 5C8E 




RTJ* 


CZCLRP1 


1897 P05E6 1800 




JMP 


ENOSEC 


P85E7 FA89 








1899 P05E8 0000 


PPNTSPG 


NUM 





1900 P05E9 588B 




RTJ* 


MUXPRNT 


1901 P05EA 5%00 




RTJ- 


CO) 


1902 P05EB 06BE P 


XSPACQP 


AOC 


SPACOP 



SELECT FORMAT TAPE LEVEL. 



PRINT MESSAGE. 



REPEAT CONDITIONS, 



CLEAR PRINTER. 
END OF SECTION 



PRINT AND GO TO SMM. 
SPACE LINE. 



01855 
01856 
01857 

01858 
ni At;q 

01860 

01861 
01862 
01863 
0186% 
01865 
01866 
01867 
01868 
01869 
01870 

01871 
01872 
01873 
0187% 
01875 
01876 
01877 
01878 
01879 
01880 
01881 

01882 
01883 
0188% 
01885 
01886 
01887 
01888 
81889 
01890 
01891 
01892 
01893 
0189% 
01895 
01896 
01897 



01899 
01900 
01901 
01902 



<L" 



60221200 F 
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o 
o 
o 
o 
o 



o 
o 
o 
o 
p 
o 
o 
o 
o 



LP10OC 



1903 P05EC OHIO 
1901> P05EO 1CFA 

1906 P05EE 0000 COUNT 

1907 P05EF 0000 LEVEL 

1908 P05F0 0000 LINE 



PASt 


47 




ENA 




$10 


JMP» 




CPRNTSPCI 


NUM 







MUM 







NUM 








OATEt 10/20/74 



1910 
1911 
1912 

1914 
1915 
1916 
1917 
1918 
1919 

1920 
1921 

1922 
1923 
1924 

1925 

1926 
1927 
1928 
1929 

1930 
1931 
1932 



*************** **v*v*****«^«* ****************** *****«^« ***************** 
»ODOODDDDODDODnoODOnDODDODODOOOnDOOOOOOOODODOODOOOOODODOOODODDDDnnODOODO 
* SECTION 13 - 6 AND 8 LINE SELECT 



SECTION 13, LOOP 1 



P05F1 
P05F2 
P05F3 
PQ5F4 
P05F5 
P05F6 
P05F7 
P05F3 
P05F9 
P05FA 
P05F8 
P05FC 
P05FO 
P05FE 
P05FF 
P0600 
P0601 
P0602 
P0603 
P0604 
P0605 



5400 
012A 
C400 
0018 
0102 
1400 
0071 
5400 
06BA 
5800 
FAC8 
C900 
FA OF 
A074 
BO 74 
0102 
5800 
F907 
0A10 
5406 
18EB 



SEC13 
YSEL211 



P XLVL10P 



RTJ- 

AOC ' 
LOA+ 

SAZ 
JMP+ 

RTJ- 

ADC 

RTJ 

LDA 

ANO- 
EOR- 
SAZ 
RTJ 

ENA 

RTJ- 

JMP* 



(0) 
SEL211 

LPTYPE 

2 

ENnSEC 

(01 

LVL10P 
SUM 

ACT 

C0NSTf9 
CONST+9 
2 

ERR1 

$10 

CJUMP1 

SEC13 



CLEAR PRINTER, PAGE EJECT, WAIT 
GET STATUS, EXPECT BIT 9 TO BE S 
FCN CLR, ALRN INT IF S/J WORD POSITIVE. 



IGNORE SECTION FOR 93X2. 
PAGE EJECT. 



EXPECT BIT 9 

ERROR CODE 7, UNEXPECTED STATUS 

REPEAT CONDITIONS 



1934 
1935 




* - 
* 


SECTION 


13, LOOP 2 


1936 




* 






1937 




*' 






1938 P0606 


5CE9 


L00PD2 


RTJ» 


(YSEL211I 


1939 P0607 


0844 




CLR 


A 


1940 P060 8 


68E7 




STA» 


LINE 


1941 P0609 


5CE1 


S02A 


RTJ» 


", CXSPACOP1 


1942-P060A: 


5R00 


........J . . .• 


RTJ 


■■:: SHM .:;:; ... 


P060B 


FAB8 








1943 P060C 


C40 




LDA*- 


ACT 


P060O 


OOBD P 









CLEAR PRINTER, SPACE THREE TIMES 
NO BIT 9 STATUS, SPACE AGAIN, EX 
9 STATUS. 
FCN CLR, ALRM INT IF S/J WORD POSITIVE. 

CLEAR LINE COUNT 
SPACE LINE. 



60221200 



01903 
01904 

01906 
01907 
01908 



01910 
01911 
01912 

01914 
01915 
01916 
01917 
01918 
01919 

01920 
01921 

01922 
01923 
01924 

01925 

01926 
01927 
01928 
01929 

01930 
01931 
01932 



01934 
01935 
01936 
01937 
01938 
01939 
01940 
01941 
01942 

01943 
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LPinnc 



PAG C 



*8 



DATE! 10/20/74 



1944 


P060E 


A074 


1945 


P060F 


08EO 


19*6 


P0610 


EROF 


1947 


P0611 


QOFC 


1948 


P0612 


0144 


1949 


P0613 


0102 


1950 


F0614 


5800 




P0615 


FA Fit 


1951 


P0615 


18F2 


1952 


P0617 


4808 


1953 


P0618 


BO 7* 


1954 


P0619 


0102 


1955 


P061A 


5800 




P0613 


FAEE 


1956 


P061C 


0A10 


1957 


P061D 


5406 


1958 


P061E 


18E7 



SD2B 



and- 


BIT9 


RAO* 


LINE 


LDO* 


LINE 


INQ 


-3 


SQZ 


S028-*-l 


SA7 


2 


RTJ 


ERP1 


JMP* 


S02A 


STQ* 


LINE 


EOP- 


CONST4-9 


SAZ 


2 


RTJ 


ERR1 


ENA 


$10 


RTJ- 


(JUMP1 


JMP* 


L00P02 



ERROR CODE 7, UNEXPECTED STATUS 



ERROR COOE 7, UNEXPECTED STATUS 



REPEAT CONDITIONS 



01944 
01945 
019*6 
01947 
019*8 
01949 
01950 

01951 
01952 
01953 
01954 
01955 

01956 
01957 
01958 



r 



I960 


* 






1961 


* . 


SECTION 


13, LOOP 3 


1962 


* 






1963 P061F 5C02 


LOOPD3 


RTJ* 


(YSEL211) 


1964 P0620 C000 




LDA- 





1965 P0621 0008 


SIX0R8 


NUH 


8 


1966 P0622 540A 




RTJ- 


<CONV> 


1967 P0623 6400 




STAf 


MESSO 


P062«» 06B2 P 








1968 P0625 08«t4 




CLR 


A 


1969 P0626 60FF 




STA- 


I 


1970 P0627 C8F9 




LDA* 


SIX0R8 


1971 P0628 09F9 




INA 


-6 


1972 P0629 0103 




SA Z 


S03A-»-l 


1973 P062A C07A 




LDA- 


EIGHT 


1974 P0628 5800 




RTJ 


SEL1 


P062C FAD2 






- 


1975 P062O 0A5E 


SD3A 


EN A 


MESSD-LPM1 


1976 P062E 0C08 




ENQ 


LVL10P-MESSD 


1977 P062F 581E 




RTJ* 


LPMSG 


1978 P0630 58B7 




RTJ* 


PRNTSPC 


1979 P0631 D8BE 




RAO* 


LINE 


1980 P0632 C8BD 


- 


LOA* 


LINE 


1981 P0633 09EP 




INA 


-16 


1982 P063* 0101 




SAZ 


1 


1983 P0635 18F7 




JMP* 


SD3A 


1984 P0636 68B9 




STA* 


LINE 


1985 P0637 0A10 




ENA 


no 


1986 P0633 5406 




RTJ- 


<JUH»I 


1987 P0639 18E5 




JHP* 


L00PD3 



CLEAR PRINTER, SELECT 8 LINES P£ 
PRINT ON 8 LINES. 
FCN CLR, ALRH INT IF S/J WORD POSITIVE. 



PRINT, GO TO SMM, SINGLE SPACE. 



REPEAT CONDITIONS 



01960 
01961 
01962 
01963 
01964 
01965 
01966 
01967 

01968 
01969 
01970 
01971 
01972 
01973 
01974 

01975 
01976 
01977 
01978 
01979 
01980 
01981 
01982 
01983 
01984 
01985 
01986 
01987 



€0221200 F 
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r 



o 



LP100C 



PAGE «»9 



DATE! 10/20^74 





1939 




* 








1990 




* 


SECTION 


13, LOOP «f 


o 


1991 P063A 


C800 


L00PD4 


LDA 


MESSB 


P0633 


0077 








1992 P063C 


9000 




SUB 


=N*3036 




P0630 


3036 










1993 P063E 


0105 




saz 


5 


o 


1994 P063F 


0A06 




ENfl 


6 


1995 P0640 


68E0 




STA* 


SIXOR8 




1996 P0641 


5800 




RTJ 


SMH 




P0642 


FA81 








o 


1997 P0643 


18DB 




JMP» 


L00PB3 


1998 P06U4 


0A08 




ENA 


8 




1999 P0645 


68DB 




STA* 


SIXOR8 




2000 P0646 


SCAB 




RTJ* 


WSEL211) 


o 


2001 P0647 


5800 




RTJ 


LVLIOP 


P0648 


0072 








2002 P0649 


5400 




RTJ* 


FPPINT 




P064A 


06DC P 








r\ 


2003 P06ti3 


1800 




JHP 


ENDSEC 


P064C 


FA24 










2005 P064D 


0000 


LPMSG 


NUM 


, 




2006 P064E 


8000 




ADO- 





O 


2007 P064F 


C900 




LOA* 


*,I 




2008 P0650 


6804 




STA* 


LPM1 




2009 P0651 


4808 




STQ* 


LPM2 


o 


2010 P0652 


0844 




CLR 


A 


2011 P0653 


60FF 




STA- 


I 


2012 P0654 


C908 


LPM1 


LOA* 


MESSA,I 




2013 P0655 


5400 




RTJ* 


DATA 


o 


P0656 


009E P 








2014 P0657 


O0FF 




RAO- 


I 


2015 P0658 


CO 00 




L0A~ 







2016 P0659 


0000 


LPM2 


NUH 







2017 P065A 


90FF 




SU3- 


T 


o 


2018 P0653 


0101 




SAZ 


1 


2019 P065C 


18F7 




JMP* 


LPM1 




2020 P0650 


1CEF 




JMP* 


(LPMSG) 


o 


2022-P065E 


800A 




NUM 


S8O0A 


2023 P065F 


43M 


MESSA 


ALF 


X, CAUSE A 




P0660 


5553 










P0661 


4520 








c 


P0662 


41 4C 








! P0663 


4152 








P0664 


4020 










I P0665 


4F<*E 










P0666 


20 4C 








c 


I P0667 


49ifE 










60221200 F 









SAME AS LOOP 3 EXCEPT SELECT 6 L 



o 
o 



FCN CLR, ALRM INT IF S/J WORD POSITIVE. 
PAGE EJECT 



END OF SECTION 



TRANSFER MESSAGE TO PRINTER BFR 
A= MESSAGE FHA, Q=WORO COUNT, 



01989 
01990 
01991 

01992 

01993 
01994 
01995 
01996 

01997 
01998 
01999 
02000 
02001 

02002 

02003 



02005 
02006 
02007 
02008 
02009 
02010 
02011 
02012 
02013 

02014 
02015 
02016 
02017 
02018 
02019 
02020 

02022 
02023 



PAGE 49 



o 



^ 



LPiOOC 



PftSF 50 



DATE* 10/20/74 





P0668 4520 




P0S69 5052 




P066A 494E 




P0669 5445 




P066C 5220 




*-* n «■» r. r» n e r r* onr?* 




2025 P066E 5345 MFSS3 




P066F 5420 




P0670 5052 




P067I 4F54 




P0672 4543 




P0673 5420 




P0674 5357 




P0675 495'* 




P0676 4348 




P0677 4553 




P067B 204F 




P0679 4E20 




P067A 3137 




P067D 3030 




P067C 2041 




P057O 4E44 




P067E 2050 




P067F 5249 




P0680 4E54 




P0681 4552 




2026 P0682 8O0A 




2027 P0683 5349 MESS4K 




P0684 4E47 


— ■ 


P0685 4C45 




P0686 2053 




P06B7 5041 




P0688 4345 




2028 P0689 444F MFSS47 




P068A 5542 




P068Q 4C45 




P068C 2053 




P068O 5041 




P068E 4345 




2029 P068F 5452 MSS47A 




P0690 4950 




P0691 4C45 - 




P0692 20 53 




P0693 5041 


— 


— - - P0694 4345 




2030 P0695 464F MFSS48 




P0696 5240 




—rr- P0697 4154 




P0698 2054 




P0699 4150 




P069A 4520 




PQ693 4C45 




P069C 5645 




- P069D 4C20 



ALF 



X,SET PPOTECT SWITCHES ON 1700 AND PRINTERX 



02021* 
02025 



r 



NUM 
ALP 



ALF 



ALF 



ALF 



S8D0A 

X, SINGLE SPACEX 



XtOOUBLF SPACEX 



X, TRIPLE SPACEX 



X, FORMAT TAPE LEVELX 



02026 
02027 



02028 



02029 



02030 



6022120& F 
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r 



r 



r 



LP100C 
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DATE1 10/20/74 



o 
o 



2031 
2032 
2033 



2034 
2035 



2036 



2037 
2038 



P069E 
P069F 
P06AO 
P06A1 
P06A2 
P06A3 
P06A<* 
P06A5 
P06A6 
P06A7 
P06AS 
P06A9 
P06AA 
P06A3 
P06AC 
P06AH 
P06AE 
P06AF 
P06B0 
P0681 
P06B2 
P06B3 
P06B4 
PQ6B5 
P06B6 
P06B7 
P068ft 
P05B9 



0000 
2C20 
544F 
5020 

2046 
UF52 
<iO20 
0000 
2020 
2020 
4C41 
535«» 
20 4C 
494E 
4520 
4F46 
2046 
«»F52 
4O20 
0000 
*»C49 
4E45 
5320 
5045 
5220 
494E 
W43 



M48A 



L1MESS 



LXMESS 



LCMESS 



NUM 
ALF 
ALF 



NUM 
AL^ 



ALF 



MESSO 



NUM 
ALF 





It* 

X,T0P OF FORMX 





X t X 

X,LAST LINE OF FORMX 





X, LINES PER INCHX 



02031 
02032 
02033 



02034 
02035 

02036 



02037 
02038 



o 
o 
o 
o 



2044 P06BA 0000 

2042 P06B3 0C03 

2043 P06BC 580A 

2044 P063D 1CFC 



2046 P068E 0000 

2047 P06BF 0C01 

2048 P06C0 5806 

2049 PQ6C1 1CFC 



2051 PQ6C2 0000 

2052 P06C3 0C01 

2053 P06C4 581F 
2Q54 P06C5 1CFC 



20.56. 4? 06C6- 0000 

2057 P06C7" C400- 
- P06CB 0018 P 



LVLIOP 



SPACOP 



SPACFL 



FQRHAT 



NUM 
ENQ 
RTJ* 
JMP* 



NUM 
ENQ 
RTJ* 
JMP* 



NUM 
ENQ 
RTJ* 
JMP* 



NUM 
LOA* 





LVCl 
FORMAT 
CLVLIOPI 





SPACE 
FORMAT 
(SPACOP) 





S°ACE 
FFORM 
(SPACED 



LPTYPE 



02041 
02042 
02043 
02044 



02046 
02047 
02048 
02049 



02051 
02052 
02053 
02054 



02056 
02057 



60221200 F 
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o 



r~ 



LP100C 



"5GF 52 



DATE: 10/20/74 



2058 P06C9 011«» 




SAN 


Fl-*-i 


2059 P06CA C?6B 




LOA- 


BIT00,Q 


2060 P06C3 5100 




RTJ 


SEL1 


P06CC FA32 








2061 P06CO 1CF8 




JMP* 


(FORMAT) 


2063 P06CE OSlit 


Fl 


TRQ 


A 


2064 P06CF 09FC 




IN A 


-3 


2065 P06D0 0121 




sa° 


1 


2066 P0601 09C2 




INA 


-$40*3 


2067 P06D2 0940 




INA 


$40 


2068 P06O3 6000 




STA- 





2069 P06D«» 0000 


F1A 


NUM 





2070 P06D5 0A01 




ENA 


1 


2071 P0606 5800 




RTJ 


SELO 


P06D7 FA10 








2072 P06D3 C8FB 




LOA* 


F1A 


2073 P06D9 5400 




RTJ* 


SDATA 


P06DA 0079 P 








2074 P06O3 ICtA 




JMP* • 


(FORMAT) 


2076 P06DC 0000 


FPRINT 


NUM 





2077 P06no C40D 




LOA* 


LPTYPE 


P06DE 0018 P 








2078 P06DF 0102 




SAZ 


EXITFP-*-l 


2079 P06E0 5400 




RTJ* 


PRINT 


P06E1 0568 P 








2080 P06E2 1CF9 


EXITFP 


JMP* 


(FPRINT) 


2082 P06E3 0000 


FFOPM 


NUM 





2fr83 P06E4 5 8 El 




RTJ* 


FORMAT 


2084 P06E5 58F6 




RTJ* 


FPRINT 


2085 P06E6 E400 




loq+ 


LPTYPE 


P06E7 0018 P 








2086 P06E8 0143 




SQZ 


ENDFF-*-l 


2087 P06E9 0844 




CLR 


A 


2088 P06EA 5400 




RTJ*- 


SOATA 


P06EB 0079 P 








2089 P06EC 1CF6 


ENDFF 


JMP* 


(FFORM) 


2091 P06EO 0000 


INTERR 


NUM 





2092 P06EE C858 




LOA* 


EV - 


2093 P06EF 0F42 




ARS 


2 


2094 P06F0 09F5 




INA 


-$A 


2095 P06F1 0131 




SAM 


1 


2096 P06F2 0906 




INA 


S10-SA 


2097 P06F3 090A 




INA 


$A 


2098 P06F4 6400 




STA* 


EXP 



IS THIS A 1740/42 
YES 

OUTPUT SPACING FUNCTION 



CLR CONTROLLER FIRST 



OUTPUT CONTROL CHARACTER. 



FORCE FORMAT. 

SPACING (1740/42) ,SETUP(93X21 

DUMMY PRINT FOR SPACING (93X2) 



SUPPRESS SPACE ON ACTUAL PRINT 



02058 
02059 
02060 

02061 

02063 
02064 
02065 
02066 
02067 
02068 
02069 
02070 
02071 

02072 
02073 

02074 



02076 
02077 

02078 
02079 

02080 



02082 
02003 
02084 
02085 

02086 
02087 
02088 

02089 





02091 




02092 


CALCULATE 


02093 


DECIMAL 


02094 


LINE 


02095 


NUMBER. 


02096 




02097 




02098 



r 

V. 



v.. 



f 



P06F5 OOBE 
2099 P06F6 0A18 



ENA 



$18 



02099 



60221200 
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c 



o 
o 



(J 


LP10OC 




PAG 




2100 P06F7 5400 




RTJ* 


r> 


P06F8 00A9 P 






\ ; 


2101 P06F9 1CF3 




JHP» 




2102 


* 






2103 


* 


INTE 


Q 


2104 


* 




2105 P06FA 0300 


INST 


NOP 




2106 P06FB 484E 




STQ* 




2107 P06FC 180«t 




JMP* 




2108 P06F3 OBOO 




NOP 


o 


2109 P06FE 5400 


STATE!? 


RTJ* 


P06FF 00C4 P 








2110 P0700 E800 


INSTf) 


LOQ 




P0701 F904 






o 


2111 P0702 02FA 




INP 


2112 P0703 684A 




ST A* 




2113 P0704 E800 




LOQ 




P0705 FC25 






o 


2114 P0706 0O01 




INQ 


2115 P0707 0A02 




ENA 


- 2116 P0703 03FE 




ou-; 




2117 P0709 OBOO 




NOP 


p 


2118 P070A 1804 




JMP* 


... 2119 P07OB OBOO 




NOP 


2120 P070C 5800 


INST1 


RTJ 




P070D F9B6 








2121 P070F E800 




LOQ 




P070F F3F6 






O • 


2122 P0710 02FA 




INP 




2123 P0711 6800 




STA 




P0712 F9AA 






o 


2124 P0713 A06D 




ANO- 


2125 P0714 0105 




SAZ 


2126 P0715 0C15 




ENQ 




2127 P0716 5806 




RTJ* 


o 


.2128 P0717 5800 




RTJ 


P0718 F9A8 






2129 P0719 18F2 




JMP* 




- 2130 P071A C82F 


INST2 


LOA* 




2131 P071B 8073 




AOD- 


o 


2132 P071C 682F 




STA* 


2133 P071D CC2E 




LOA* 




2134 P071E 682E 




STA* 




2135 P071F COOO 




LDA 


o 


P0720 0724 P 






2136 P0721 6C2A 




STA* 




2137 P0722 E827 




LOQ* 




. .....2138 PQ723 1CD6 




JMP* 


o 


2139 P0724 C828 


INT 


LDA* 


2140 P0725 6C26 




STA* 


. ..- 2141 P0726 0821 




RAO* 


i 


2142 P0727 C826 




LDA* 


^--- 1 


2143 P072<i A060 




ANO- 


O ! 

! 








o 


60221200 F 






o 









DATE! 10/20/74 



STOP 
(INTERR) 
INTERRUPT PROCESSOR 





EV 

INSTO 

CINT R£J1 

SMM (EXT REJ) 

EQUIP 

STATER-*-l 

INTSTAT 

EQIO 

1 
2 
-1 



*«-4 

SMM 

EQUIP 

INSTl-*-l 

ACT 

CONST+2 

INST2-*-i 

$15 

INTERR 

SMM 

INST1 

EV 

CONST+8 

TRAP 

(TRAP) 

STRAP 

=XINT 

(TRAP1 

EV 

(INST) 

STRAP 

(TRAP) 

INTF 

INTSTAT 

C0NST*-2 



EXIT VALUE 



STATUS 



CLEAR INTERRUPT 



STATUS 



***ERROR 15 INTERRUPT FAILED TO CL 
REPORT ERROR. 



ADDRESS OF INTERRUPT PROCESSOR 



EXIT 



IS INTERRUPT STATUS BIT SET 



02100 

02101 
02102 
02103 
02104 
02105 
02106 
02107 
02108 
02109 

02110 

02111 
02112 
02113 

02114 
02115 
02116 
02117 
02118 
02119 
02120 

02121 

02122 
02123 

02124 
02125 
02126 
02127 
02128 

02129 
02130 
02131 
02132 
02133 
02134 
02135 

02136 
02137 
02138 
02139 
02140 
02141 
02142 
02143 
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LPionn 




PAGE 


5* 


2li*k P0729 0112 




SAN 


INl-»-l 


21*5 P072A OCOF 




ENQ 


SF 


21*6 P0726 58C1 




RTJ* 


TNTEPR 


21*7 P072C 0A1C 


INI 


ENA 


$10 


21«»8 P072O A822 




AMD* 


»F 


21«»9 P072E 0116 




SAN 


IN2-*-l 


2150 P072F C800 




LOA 


INTSTAT 


P0730 OOID 








2151 P0731 68 n 




STA 


ACT 


P0732 F98A 








2152 P0733 0C10 




ENQ 


J10 


2153 P073* 58B8 




RTJ* 


I NT ERR 


215* P0735 CB18 


IN2 


LOA* 


INTSTAT 


2155 P0736 A06E 




ANO- 


C0NST*3 


2156 P0737 0102 




SAZ 


2 


2157 P0733 O800 




RAO 


OF 


P0739 F8A1 








2158 P073A C813 




LOA* 


INTSTAT 


2159 P0739 A06F 




ANO- 


CONST*«» 


2160 P073C 0101 




SAZ 


1 


2161 P073O 0811 




RAO* 


EF 


2162 P073E O80F 




LOA* 


INTSTAT 


2163 P073F A070 




ANO- 


C0NST«-5 


216* P07*0 0102 




SAZ 


2 


2165 P07*l 0800 




RAO 


AF 


P07*2 F899 








2166 P07*3 08** 




CLP 


A 


2167 PQ7>*t* 6808 




STA* 


RF 


2168 P07«t5 E80«f 




LOQ* 


EV 


2169 P07*6 1CB3 




JMP* 


IINST) 


2170 P07*7 0000 


INTF 


NUM 





2171 P07*8 0000 


ISR 


NUM 





2172 P07*9 0000 


EV 


NUM 





2173 P07*A 0000 


IRCH 


NUM 


" 


217* P07*3 OOOO 


TRAP 


NUM 





2175 P07*G 0000 


STRAP 


NUM 





2176 P07»tD 0000 


INTSTAT 


NUM 





2177 P07tfE 0000 


FF 


NUM 





2178 P07*F 0000 


RF 


NUM 


JO 



DATFI 10/20/7* 



YES 
***ERROR F INTERRUPT BUT NO 
REPORT ERROR. 

CHECK INTERRUPT REQUEST FLAG, 



***ERROR 10 UNREQUESTED INTERRUPT 
REPORT ERROR. 

IS IT A DATA INTERRUPT 
NO 



IS IT AN E.O.P. INTERRUPT 

NO 

SET EOP INTERRUPT FLAG 

IS IT AN ALARH INTERRUPT 
NO 



021** 
021*5 
021*6 
021*7 
021*8 
021*9 
02150 

02151 

02152 
02153 
0215* 
02155 
02156 
02157 

02158 
02159 
02160 
02161 
02162 
02163 
0216* 
02165 

02166 
02167 
02168 
02169 
02170 
02171 
02172 
02173 
0217* 
02175 
02176 
02177 
02178 



c 



v.. 



v - 



60221200 F 



PAGE 5* 



o 



o 



v_y 



3 




LP100C 




2180 


P0750 


COOO 


^— > 




P0751 


OQOC 


■J 


2181 


P0752 


6400 




P0753 


0005 




2182 


P075«» 


09F3 


/ — -V 


2183 


P0755 


540A 


^1 


218*t 


P0756 


6867 


K^ 


2185 


P0757 


l»B55 




2186 


P0758 


E091 




2187 


P0759 


C291 


^\ 


2188 


P075A 


540A 


^J 


2189 


P075Q 


6367 




2190 


P075C 


COOO 






P075D 


0793 


/^~\ 


2191 


P075E 


0C28 




2192 


°075F 


5«*G8 


^ — / 


2193 


P0760 


C400 






P0761 


0006 


/■ — ~N 


219«» 


PQ762 


A08A 


'A 


2195 


P076 3 


B06B 


^~s 


2196 


P0764 


O105 




2197 


P0765 


0A08 




2198 


P0766 


0C01 


r^\ 


2199 


P0767 


5800 






P0763 


F940 




2200 


P0769 


18F6 




2201 


P076A 


C800 






P0768 


F89A 


i & 


2202 


P076C 


AOOO 




.. . 


P076O 


FF80 




2203 


P076E 


6800 


— s 




P076F 


FBBB 


u 


--•■ 2204 


P0770 


AOOO 




P0771 


F800 




2205 


P0772 


6800 




..... 


PQ773 


FA71 


r~) 


2206 


P0774 


0111 


kj 


2207 


P0775 


1819 




2208 


PQ776 


822 




2209 


P0777 


BO 77 


o 


2210 


P0779 


010D 


...... 2211 


P 077.9 


081«t 




2212 


P077A 


BOOO 






P077B 


3800 


/""^ 


2213 


P077C 


0109 


C j 


2214 


P0770 


081«f 


> — y 


2215 


P077E 


BOOO 






P077F 


6000 


^« 


2216 


P0780 


0105 


O i 


2217 


P0781 


0A08 


2218 


P0782 


0C01 


1 


2219 


P0783 


5800 


i 




P078<» 


F924 



INITOC 



INIT1 



INIT? 



PAGE 


55 


LDA 


=XSTART 


STA* 


RETURN 


INA 


LP100C-START 


RTJ- 


CHEXASC) 


STA» 


FREQCNT-2 


STQ* 


FREQCNT-3 


LOQ- 


TSACTV \ 


LOA- 


TSFREQ-i,Q 


RTJ- 


(HEXASC) 


STA* 


ENOTYP-1 


LOA 


=XTYPEIA 


ENQ 


ENOTYP-TtPFIA 


RTJ- 


(TYPEOUTI 


LOA+ 


EQUIP 


ANO- 


H007F 


EOR- 


BITOO 


SAZ- 


INIT2-«^-l 


ENA 


8 


ENQ 


$1 


RTJ 


STOP - 


JMP» 


INIT1 


LOA 


EQUIP 


AND 


=N$FF80 


STA 


EQIO 


AND 


=N$F8Q0 


STA 


CHAN 


SAN 


1 


JHP» 


INIT3 


TRA 


Q 


E03- 


BIT12 


SAZ 


INIT2A-»-l 


TRQ 


A 


EOR 


=N$3800 


SAZ 


INIT2A-*-l 


TRQ 


A 


EOR 


=N$6000 


SAZ 


INIT2A-»-l 


ENA 


8 


ENQ 


SI 


RTJ 


STOP 



DATE* 10/20/74 



FORM TA IN AREG 



TYPE TITLE 



♦♦•ERROR 1 EQ AOORESS ERROR 



EQUIPMENT AOORESS FOR DATA TRANS 



ZERO IF AQ CHANNEL 



CHECK FOR LEGAL H 



♦♦•ERROR 1 EQ ADDRESS ERROR 
ERROR, H IS NOT 02,07, OR OC 



02180 

02181 

02182 
02183 
02184 
02185 
02186 
02187 
02188 
02189 
02190 

02191 
02192 
02193 

02194 
02195 
02196 
02197 
02198 
02199 

02200 
02201 

02202 

02203 

02204 

02205 

02206 
02207 
02208 
02209 
02210 
02211 
02212 

02213 
02214 
02215 

02216 
02217 
02218 
02219 



o 
o 
o 

n 
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lpiooc 


2220 


P0785 


1RDA 


2221 


P0786 


C800 




P0787 


FBA3 


2222 


P0788 


8076 


2223 


P0789 


6B00 




P078A 


FAEF 


222** 


P078B 


8076 


2225 


P078C 


6800 




P078O 


FA01 


2226 


P078E 


5800 




P078F 


F9«*C 


2227 


P0790 


9800 




P0791 


F92B 


2228 


P0792 


A072 


2229 


P0793 


0C01 


2230 


P079«» 


0102 


2231 


P0795 


0AF3 


2232 


P0796 


OCOD 


2233 


P0797 


8000 




P0798 


07CF i 


2234 


P0799 


5408 


2235 


P079A 


5401 


2236 


P079B 


8D0A 


2237 


P079C 


4C50 




P079O 


3130 




P079E 


3043 




P079F 


2020 




P07A0 


3137 




P07A1 


3430 




P07A2 


2F34 




P07A3 


322F 




P07A4 


3933 




P07A5 


5832 




P07A6 


204C 




P07A7 


49 4E 




P07A8 


4520 




P07A9 


5052 




P07AA 


494E 


•- - ■ 


P0749 


5445 




P07AC 


5220 




P07AO 


54<»5 




P07AE 


5354 




P07AF 


2020 


2238 


P07B0 


8D0A 


2239 


P07B1 


4350 




P07B2 


3246 




P07B3 


2C20 




P07B4 


5645 




P07B5 


522E 




P07B6 


2033 




P07B7 


2E31 


2240 


P07B8 


8O0A 


2241 


P07B9 


2049 


■ — - 


P078A 


4120 




60221200 F 



PA3E 56 



DATE* 10/20/74 



INIT2A 



INTT3 



INIT5 



TYPETA 



JMP* 


INIT1 


LOA 


EQ.IO 


AD9- 


RTT11 


STA 


EQTERM 


ADO- 


BIT11 


STA 


EQHRT 


P.TJ 


STAT 


EOR 


ACT 


ANO- 


BTT7 


EMO 


1 


SAZ 


INIT5-*-l 


EN A 


ENOTYP-EPRO 


ENQ 


EPRO-ENOTYP+1 


ADO 


=XEPRO 


RTJ- 


(ME5SAG) 


RTJ- 


(CONTROL1 


NUM 


$8D0A 


ALF 


Z,LP100C 174 



NUM 
ALF 



NUM 
ALF 



W=0 2 FOR DIRECT INPUT OR OUTPUT 

H=03 FOR TERMINATE BUFFER 
W=04 FOR BUFFERED OUTPUT OR BOC 



1740/42/93X2 LINE PRINTER TEST Z 



02220 
02221 

02222 
02223 

02224 
02225 

02226 

02227 

02228 
02229 
02230 
02231 
02232 
02233 

02234 
02235 
02236 
02237 



v.. 

( 



r 



S8D0A 

X,CP2F, VER. 3. IX 



•••02238 
•••02239 



$8O0A 
6, IA = 



02240 
02241 



PAGE 56 



r 



o 



l ; 



w 



u 





LP100C 




PA 




P07B8 


3D20 








P07BC 


2020 








P07Bn 


2020 








P073E 


2C20 






22*2 


P07BF 
P07C0 
P07C1 
P07C2 


20<*6 
*320 
3T120 
2020 


FREQCNT 


ALF 


22*3 


P07C3 
P07C* 
P07C5 
P07C6 
P07C7 
P07C8 
P07C9 
P07CA 
P07CB 
P07CC 
P07CO 
P07CE 


2020 
2020 
5052 
*F5i» 
i*5hl 
5*20 
535* 
*15* 
5553 
20 53 
*55* 
2E20 


ENOTYP 


ALF 


22** 


P07CF 


aoofl 


EPRO 


NUM 


22«i5 




0751 P 




EQU 


22*6 


P07D0 


00QA 




BZ3 


22*7 




0000 




DAT 


22«»8 








ENO 



PAGE 57 



DATE! 10/20/7* 



»♦, FC = 



PROTECT STATUS SET.X 



022*2 



022*3 



S8D0A 

FHAfINITOC+11 
I0BFR(68+69-EPR0+FWA-ll 
AIDOPLDR (68*69-EPR0*FWA-ll 



022** 
022*5 
022*6 
022*7 
022*8 



o 
o 



60221200 
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n 



LPIOUC PAGE 58 DATE! 10/2q/7«* 



PGM- 



s 070A < 2gl0» CO* = OOaU I 0* OAT * OQOA f 101 



60221200 F PAGE 58 



V. 



C 

c 



LP100C 



PAG! 



59 



OATEl 10/20/74 



w 



r\ 



MEQUIVALENCES 
M OEF.LINE NAME VALUF 



REFERENCED AT LINE NUMBER 



0000 


I 


OOFF 


(000255) , 


. 0328, 


0338, 


0341, 


0521, 


0541, 


1016 










1021, 


1022, 


1438, 


144 2, 


1445, 


1501 










, 1504, 


1505, 


1525, 


1527, 


1534, 


1544 










r 1546, 


1554, 


1557, 


1568, 


1569, 


1573 










1969, 


2011, 


2014, 


2017 






0221 


CONTRO 


0001 


(000001) , 


, 0222, 


0359, 


0524, 


2235 






0222 


STOPX 


0002 


(000002) , 


0223, 


0316, 


0504 








0223 


EXIT 


0003 


(000003) i 


0224, 


0410 










0224 


REQINT 


0004 


(000004) , 


> 0225, 


0226, 


0284, 


0309 






0225 


FCLRIN 


0005 


(Q00005) 1 


r 0285 












0226 


JUMP 


0006 


(000006) 1 


0227, 


0406, 


0416, 


0424, 


433, 


0467 










0635, 


0703, 


0756, 


0824, 


0865, 


0906 










0976, 


0990, 


1037, 


1085, 


1188, 


1218 










1298, 


1341, 


1516, 


1633, 


1648, 


1661 










1719, 


1725, 


1736, 


1794, 


1890, 


1931 










1957, 


1986 










0227 


GENRAN 


0007 


(000007) , 


0228, 


0281 










0228 


TYPEOU 


0008 


(000006) , 


0229, 


0230, 


0283, 


2192 






0229 


TTYBZY 


0009 


(000009) 














0230 


HEXASC 


000A 


(000010) , 


0231, 


0282, 


0286, 


1880, 


2183, 


2188 


0231 


OVRLAY 


000B 


(000011) , 


, 0232 












0232 


RELPOS 


OOOC 


4000012) 


, 0233 












0233 


MAINl 


oono 


(000013) , 


, 0234 












0234 


SETMAS 


0042 


(000066) • 


r 0235 












0235 


STJP 


0043 


(000067) , 


0236, 
, 1743 


0237, 


0280, 


0498, 


0598, 


1668 


0236 


LASTVA 


0044 


(000068) 














0237 


LASTA9 


0045 


(000069) 1 


0238 












0238 


LOLCOR 


0047 


(000071) i 


r 0239^ 












0239 


LOL1CO 


0048 


(000072) , 


0240 












0240 


INFORM 


0049 


(000073) , 


0241, 


1622, 


1681, 


1706 






0241 


SMMCNT 


0056 


(000086) , 


0242, 


0279 










0242 


BITOO 


006B 


(000107) , 


, 0243, 


0278, 


1671, 


1847, 


2059, 


2195 


0243 


BITO 


0068 


(000107) , 


0244, 


331 










0244 


3IT1 


006C 


(000108) , 


0245, 


0534, 


0537 








0245 


8IT2 


006B 


(000109) ^ 


r 0246 












0246 


BIT 3 


006E 


(000110) , 


0247 












0247 


BIT 4 


006F 


(000111) , 


0248 












0248 


BIT5 


0070 


(000112) , 


0249 












0249 


BIT6 


0071 


(000113) , 


0250, 


1428 
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(') 





LP100C 
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BA 


0250 


BTT7 


0072 


(000114) 


t 0251, 


1746, 2228 


0251 


8IT8 


0073 


1000115) , 


, 0252 




0252 


BTT9 


0074 


1000116) , 


, 0253, 


1944 


0253 


BIT10 


0075 


(000117) , 


, 0254 




0254 


BIT11 


0076 


(000113) , 


r 0255, 


2222, 2224 


0255 


3IT12 


0077 


(000119) , 


, 0256, 


2209 


0256 


BIT13 


0078 


(000120) 


, 0257 




0257 


BIT14 


0079 


(000121) , 


, 0253, 


1423 


0258 


BIT15 


O07A 


(000122) , 


, 0259 




0259 


HOOOO 


007B 


(000123) , 


0260, 


0381, 0584 


0260 


HFFFF 


007C 


(000124) , 


, 0261 




0261 


HOQQF 


0070 


(000125) , 


► 0262 




0262 


HOOFO 


007F 


(000126) 1 


, 0253 




263 


HOFOO 


007F 


(000127) 


, 0264 




0264 


hfooo 


0080 


(00012ft) 1 


► 0265 




0265 


HOGFF 


0081 


(000129) , 


, 0266, 


1424 


0266 


HFFOO 


0082 


(000130) 


, 0267, 


1419 


0267 


HFFFO 


0083 


(000131) , 


, 0268 




0268 


HOFFF 


0084 


(000132) , 


► 0269 




0269 


HFFOF 


0085 


(000133) , 


► 0270 




0270 


HFOFF 


0086 


(000134) , 


, 0271 




0271 


H7FFF 


0087 


(000135) , 


, 0272 




0272 


H7F00 


0088 


(000135) , 


, 0273 




0273 


H0780 


0089 


(000137) , 


, 0274 




0274 


H007F 


008A 


(000138) , 


► 0275, 


2194 


0275 


H2020 


008B 


(000139) , 


, 0276 




0276 


TSACTV 


0091 


(000145) 1 


0277, 


2186 


0277 


TSFREQ. 


0092 


(000146) , 


, 2187 




0278 


CONST 


006B 


(000107) , 


0289, 


0290, 0291 



BATE1 10^20/74 



^...- 



0299, 0368, 0U5 ( 0532, 0600, 1019 

1023, 1565, 1714, 1715, 1926, 1927 

1953, 2124, 2131, 2143, 2155, 2159 
2163 





0279 


SMMPAR 


0056 


(00009&) 










0280 


SJPAR 


0043 


(000067) 










0281 


RANDOM 


0007 


(000007) 










0282 


CONVER 


OOOA 


(000010) 










0283 


MESSAG 


0008 


(000008) 


, 


1616., 


170%, 2234 




• 0284 


REQND 


0004 


(000004) 










0285 


CLRNO 


0005 


(000005) 










0286 


CONV 


OOOA 


(000010) 


» 


1528, 


1856, 1966 




0289 


CLEAR 


006B 


(000107) 


, 


1643, 


1723 




0290 


CLINT 


006C 


(000108) 


» 


0662, 


1180 


# 


0291 


DIREQ 


006D 


(000109) 


» 


0671, 


1352 




0292 


EOPREQ 


006E 


(O0O110) 


» 


0748 






0293 


ALIREO 


006F 


(000111) 


, 


0765, 


1072, 1619 




0294 


PRINTL 


006B 


(OQ0107) 








' 


0295 


SPACE 


0001 


(000001) 


*• 


2047, 


2052 




0296 


OSPACE 


0002 


(000002) 


, 


1822 




I 


Q297 


TSPACE 


0003 


(000003) 


, 


1332 




:i . 


-4)298- 


-LVL1 


- 00O3 


- (000003) 


*■ 


2042 






0299 


EIGHT 


007A 


(000122) 


t 


1973 





r 
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o 



o 

o 



LP100C 



r 



V J 



MS Y M 3 


L S 




- -M OEF.LINE NAME 


ADDRESS 


0301 


LP100C 


0000 


0303 


PARADR 


000* 


030V 


RETURN 


0005 


0305 


EQUIP 


0006 


0307 


RIL 


0007 


0313 


START 


OOOC 


0319 


PARAMS 


0012 


0320 


SECTNS 


0013 


0321 


OATAL 


001* 


- 0322 


EOPL 


0015 


0323 


ALARML 


0016 


032* 


CHAR8 


0017 


- - 0325 


LPT YPE 


.0018 


0327 . 


-PARCHK 


0019 


0329 


PARLOO 


ooia 


0330 


PARI 


001C 


- -0336 


PAR2 


0022 


03li3 


CHARCK 


0029 


0348 


PAR3 


002E 


■-- 0-353 - 


- RILS - 


0032 


0360 


START1 


0039 


0363 


RESTAR 


003C 


-0366 


-TEST 


00 3E 


0375 


NEXT1 


00*7 


0379 


NEXT2 


00*8 


------ osai 


- NEXT3 


- oo*o 


0395 


SECTOT 


005B 


01*00 


ENDTES 


005C 


— -a*09 


I* 


0065 


0*15 


REPEAT 


0067 


0*19 


PASSCT 


006B 


- 0*20 


SEC 


006C - 


0*22 


REPCON 


006D 



PAGE 61 DATEI 10/20/7* 



REFERENCED AT LINE NUMBER 



0*28 



0*37 



ENOSEG 0071 



SDATA 0O79 



0**7 


OUTPUT 


0082 


0*51 


0ATA1 


0086 


0*57 - 


OATRAN 


OOOG 


0*69 


XOUT 


0098 



, 0*09, 2182 



031*, 

0308, 

1755, 

0311, 

03Q1, 

0303 

0363 

0330, 

0355 

0357 

03*3, 

0*79, 

1728, 

2077, 

0317 

03*2 

0335 

0332 

03*0 

033*, 

03*7 

0313 

0*18 

037*, 

0369 

0*3* 

r-03BQ, 

036*, 

0372 

0315, 

0*07 

0*01, 

0378, 

0*25, 

127*, 

1*63, 

2003 

0**0, 

1152, 

0**3, 

0*68 

0*5* 

0*55 



0361, 2181 

05*9, 1179, 1336, 16**, 1657 

2110, 2121, 2193, 2201 

035*, 0356, 0358 

0351, 0*17, 2180, 2182 



0336, 0353 



1586 

0928, 11*9, 1251, 1373, 1650 

1770, 1829, 1870, 1919, 2057 

2085 



0337, 03*5 



0*35 

0367, 0375, 0376 

0501 

0*02 

0*00, 0*31, 0*93 

0*50, 0*52, 0*72, 0770, 1119 

1*10, 1751 

1*97, 1577, 1595, 1897, 1921 

0**5, 0*82, 0*8*, 080*, 0856 

1833, 1836, 2073, 2088 

0*60, 0*73, 0*7*, 0582 



u 



60221200 F 
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c 



v.. 



0476 



0484 
0490 



0506 
0507 
0508 
0509 



0510 

0511 
051? 

0513 
0520 



LPioon 



DATA 



LP17«»0 
STOP 



IP 

SECERR 
RETAO 
ACT 



EXP 

ACT1 
EXP1 

STOPGO 

SMM 



009E 



00A7 
00A9 



OOBA 
008B 
ODBC 
OOBD 



OOBE 

OOBF 
OOCO 

00C1 
00C4 
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0477, 0485, 0984, 1069, 1111, 1154 
1264, 1398, 1441, 1503, 1529, 2013 



u 



0523 


SMHR 


00C7 


0527 


SHM1 


OOCA 


0536 


SMHRi 


00D4 


0543 


SMM2 


OODB 


_-.... 0547 


STAT 


OODC 


0549 


XEQUIP- 


OOOF 


0552 


STATO 


00E1 


0554 


STATOA 


00F3 


- 0560 


STAT1 


OQEA 


0570 


STAT 2 


00F4 


0574 


SELO 


00F5 



0576 


SELO 2 


00F7 


0579 


SELECT 


00F9 


0588 


SEL1 


OOFF 


0597 


SEL2 


0103 


0608 


ERR1 


01PA 


0619 


NOTSEC 


0117 


0623 


L0OP5F 


011B 


0624 


LO0P6F 


011C 


0625 


L00P7F 


0110 


0627 


SUBil 


011E 



0480 

035fl, 

0568, 

1035, 

0492 

0494 

0463, 

0461, 

1041, 

1943, 

0449, 

1018, 

0617, 

0522, 

1209 

0505 

0451, 

0849, 

1186, 

1323, 

1576, 

1996, 

0360 

0523, 

0531 

0535, 

0536, 

0963, 

2226 

0448_, 

0533, 

0569 

0555 

0553, 

0438, 

0575, 

0766, 

1337, 

0603 

0576, 

0589, 

0602, 

0611, 

0924, 

1717, 

0614 

0710, 

0684, 

0685, 

0631, 



0404, 0430, 0465, 0497, 0515 
0612, 0622, 0904, 0918, 0966 
1135, 2100, 2199, 2219 



0495, 0502, 0514, 1129 

0556, 0566, 0609, 0807, 1005 

1045, 1289, 1713, 1747, 1925 

2123, 2151, 2227 

0453, 0560, 0563, 0610, 1006 

1040, 1046, 1131, 2098 

1030, 1208 

0540, 0615, 0900, 0912, 0962 



0525, 0628, 0680, 0795, 0810 

0859, 0920, 0985, 1074, 110 

1197, 1214, 1231, 1247, 1265 

1339, 1355, 1388, 1462, 1496 

1594, 1637, 1783, 1924, 1942 

2109, 2120, 2128 

0542, 0543 

0538 

0539, 0551, 0805, 0901, 0915 

1127, 1628, 1670, 1712, 1745 

8528 

0550, 0558 



0554 

0441, 0462, 0470, 0471, 0478 

0580, 0663, 0679, 0695, 0749 
0848, 1073, 1099, 1109, 1354 
1396, 1620, 1773, 2071 

0581, 0590 
1776, 1974, 2060 
0642, 1227, 1246, 1414 
0632, 0633, 0799, 0813, 0863 
0988, 1268, 1294, 1295, 1631 
1929, 1950, 1955 

0716, 0719 

0712, 0726, 0730 

0714, 0737, 0741 

0636, 0637, 0638, 0651, 0657 



V 
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o 



.J 



( s 



o 
o 
o 



0640 


SEL211 


012A 


0651 


SEC1 


012E 


0656 


L00P12 


0130 


0662 


L00P11 


0133 


0673 


LOOPl** 


0139 


0675 


XOF 


0138 


0676 


S14C 


013C 


0686 


HDINC 


0146 


0691 


FC 


014A 


0693 


CLRP 


01«»9 


0698 


S1*»A 


014F 


07Q1 


S14B 


0153 


0710 


LO0P15 


0157 


0718 


S15A 


015F 


0726 


L00P16 


0161 


0729 


S16A 


016«* 


0737 


L00P17 


0166 


07*f0 


S17A 


0169 


8746 — 


- tOOPlB 


0169 


0762 


Loopig 


0179 


076** 


XRF 


017B 


0773 


NINETE 


0185 


0775 


ERRX 


0186 


0792 


SEC2 


018D 


0795 


S21AA 


0190 


0800 


SEC2ER 


0197 


0802 


WORD 


0199 


0807 


S21A9 


01AO 


0817 


iwn 


01AE 


0819 


S21ER 


0180 


823 


S21AC 


0185 


08**0 


L00P21 


01C2 


0842 


XWOCNT 


01C4 


0844 


LP21A 


01C6 


0859 


S21A 


01OA 


0861 


ELEVEN 


01OD 


0864 


S21B 


01E1 


0868 


CHAN 


01E5 


0872 


CHKCNT 


01E8 


0888 


LOOP22 


01F0 


0890 


LP22 


01F2 


0899 


S22C 


01FA 


0905 


S22G 


0203 


0910 


CKER19 


0207 


0920 


S22E 


0214 


0922 


S23E 


0217 


0925 


S22F 


021B 


0927 


CNT 


021C 


0937 


L00P23 


0223 


0946 


S23Q 


022C 



066**, 0750, 0767, 1271 

0643, 11«*8, 1542, 1808, 1918* 

0382, 0652 

0658 

0665 

0700, 0704, 0717, 0728, 0739 

0681 

0827 

0672, 0678 

0656, 0696, 0701, 0754, 0769, 0792 

0843, 1065, 1377, 1608, 1779 

0682 

0689 

0711 

0713 



0715 










0757 










0771 










0601, 


0677, 


07«»7, 


08«»7 




0629, 


0796 








0688, 


0776, 


0853, 


1105, 


1767 


0383, 


0825, 


0832 






0809 










0613 










0797, 


0798, 


0826, 


0930, 


0834 


0833, 


0855, 


0888 






0822 










O80IL, 


0814, 


0818 






866 










079«f, 


0873, 


876 






0853 










0811 










885«» 










2205 










0808, 


0857, 


0878, 


0879, 


1215 


0869, 


0907, 


09«»5 






0893 










0*95 










0897 










0896, 


0925, 


0971 






091«» 










094<i, 


0948 








0919, 


0923 








087«», 


0889, 


0932, 


0996, 


1206, 1692 


090« 










0938 
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V. 





LP100C 




0958 


L00P2* 


0231 


0969 


LP23F 


023E 


0971 


S2*C 


023F 


0972 


S2*G 


02*0 


098? 


L00P25 


02*6 


099* 


INITBO 


0255 


0998 


S22A 


0259 


1002 


FWAM1 


0250 


100* 


EQWRT 


025F 


1007 


B0C1 


026* 


1010 


8DC2 


0267 


1015 


BDC03 


026C 


1017 


BOCSTA 


026E 


1026 


XBO 


0278 


1028 


EQTERM 


027A 


1033 


BOCERR 


027F 


10** 


INBDC 


028C 


10*7 


B0C3 


0291 


1050 


BDC* 


029* 


1062 


L00P26 


029A 


1065 


XCLRP 


0290 


1081* 


S26A 


02B5 


1093 


L0QP27 


02B8 


1105 


XERRX 


02C7 


1115 


XSUB*2 


02O* 


1118 


S27C 


0207 


1121 


OF 


0209 



PAGF 6* 



OATEt 10/20/7* 



1122 



112* 



AF 



02DO 



ERRSUB 0200 



1129 


ES2 


02E3 


1133 


STPCNT 


02E9 


1138 


ERSUB2 


02EE 


11*6 


SUB31 


02F5 


115* 


ROATA 


0302 


1169 


SEC3 


030C 


1176 


LOOP32 


0310 


1178 


XPRINT 


0313 


1180 


S32A 


0316 


118* 


S32ER 


031A 


1186 


S32B 


031C 


1195 


L00P33 


0321 


1200 


S33B 


0328 


1202 


EQIO 


032B 


121* 


S33A 


033C 


1217 


S33C 


03*1 


1225 


L00P3* 


03** 


12*2 


L00P35 


035* 



0977 

0937, 

0960 

0967 

0870* 

089*, 

09*0, 

097* 

0890, 

2225 

101* 

1007 

1008 

1025 

1020 

102<f, 

1013, 

1017, 

105* 

10*7 

0992, 

0982, 

1079 

1120 

1078 

1081 

1106 

0675, 

12*«, 

1063, 

1638, 

0777, 

1282, 

11**, 

1125, 

0820, 

1283 

1160, 



0939, 0950 



0991 

0959, 1026, 1031 

09*2, 09*6, 0958, 0961, 0972 

0899, 0911, 0999, 1000 



^ 



2223 

1039, 10*2, 1053 

1029, 10*8, 1055 



1086 

0995, 1080, 1118 



08*5, 0850, 109*, 1101, 12*3 

1351, 1380, 1389, 2157 

1075, 1095, 1112, 1382, 1399 

2165 

0779, 1128, 1136, 11*2, 1212 

1287 

11*0, 1285 

1126, 113*, 11*1, 11*3,. 1185 

1169, 1176, 1195, 1225, 12*2 



1159 

038*, 1172 

1189 

1170, 1196, 1230, 12**, 1269 

1181 

1132 

1219 

1216 

0815, 166*, 2113, 2203, 2221 

120* 

1213 

1236 

1252 



r~~- 
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o 



o 
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o 






1259 

1271 

1277 
1279 



1288 
1296 
1310 
1319 
1331 
1348 
1373 
1377 
1404 
1409 
1413 
1418 
1434 
1435 
1437 
1440 
1444 
-1449 
1458 
1459 
1465 
1470 
1473 
1476 
1481 
1482 

1488 
1489 
1496 
1499 
1500 
1503 
1509 
1512 

1514 
1521 

1524 
1532 
1541 
1542 
1545 
1551 
1559 
1576 



L0OP36 
XSUB11 

XSPACE 
SU8«»2 



SU342A 

EN0S42 

SEC4 

L00P«»2 

L00P43 

L00P44 

L00P45 

YCLRP 

S«»5A 

S45B 

SUB41 

CHARCH 

SFC5 

S2021 

S5t 

S52 

S202 

S54 

S55 

S57 

SUB50 

S50 

SUP51 

S101 

CHAR 

TFMP 

SEC6 

S5959 

S61B 

SUB60 

S61 

S62 

S63 

HDCNT 

SUB71 
SUB72 

S71B 

S71C 

SFC7 

XSEL21 

L00P71 

LOOP72 

L00P73 

S74 



0363 
374 
037A 
037B 



3389 
0396 
039C 
03AH 
03AD 
03B9 
03CB 
03D0 
03F7 
03FO 
0401 
0407 
0414 
0415 
0417 
041A 
041F 
0424 
0420 
042E 
A435 
043A 
0430 
0440 
0444 
0445 

0446 
0447 
044E 
0452 
0453 
0456 
045B 
0460 

0461 
0468 

046B 
0474 
0478 
0479 
047C 
0481 
0488 
0499 



• 1263, 1312 

, 13B3, 1415 

, 1115, 1234, 1250, 1286, 1291 

, 1296, 1299, 1300, 1301, 1326 

, 1391, 1401, 1406, 1640 

, 1292 

i, 1313 



1275 
1171 
1259 
0698 
1293 
1358 
1280 
1281 
0385 
1328 
1342 
1360 
1411 
1260, 1273, 1409 

1375 

1311, 1322, 1334, 1349, 1416 

1429, 1440, 1477 

0386 

1450, 1461 
1448 

1447 

1455 

1457 

1436, 1471, 149fl, 1587 

1458 

1451 t 1479, 1492 

1439, 1466, 1474, 1478, 1502 

1452, 1453, 1468, 1556, 1560, 1561 

1564-, 1571, 1589, 1590 

0387 

1493 



, 1511, 1588 
if 1510, 1593 



I, 1509, 1518, 1519, 1532 

E, 1535, 1545, 1549, 1551, 1555 

I, 1570, 1574 



1491. 

1495, 

1508 . 

1507 

0616, 0842, 1199, 1207, 1523, 1524 

1530 

1449i 

1533, 

1559, 

1531 

1526 

0388 

1469 

1548 

1563 



60221200 



PAGE 65 



o 
o 



n 







LP100C 






1583 


SEC8 


0490 




1586 


XCHAR8 


OttAO 




1588 


S81 


04A2 




1601 


SEC9 


0«fAC 




1608 


SEC10 


04AF 




1628 


L00PA1 


4CA 




1635 


L00PA2 


04D4 




1643 


L00PA3 


OMEO 


. 


1650 


L00PA4 


04E8 




1655 


LPA^A 


0<»EE 




1663 


L00PA5 


04F7 




-1670 


LPA50 


0500 




1674 


LPA51 


0505 




1677 


SUB101 


0507 




1690 


SEG11 


0510 




171? 


L00P91 


052C 




172? 


LOOPB2 


0538 




1728 


L00P33 


053P 




1733 


LP83 


0543 




1735 


LPB31 


05h5 




1739 


L00PB4 


0548 




17«»5 


LPB«» 


054F 




1751 


XREPCO 


0557 




175 4 


CHKIO 


0559 




1762 


XCHK 


0562 




1765 


ERR16 


564 


. ... — 


1769 


PRINT 


0568 




1775 


NOTCR 


0570 




1779 


ZCLR.P 


057«f 




1781 


NUXPRN 


0575 




1786 


SU812 


057A 


:.. 


1795 


•- SUB12A 


0583 




1798 


LVLS 


0586 




1808 


SEC12 


0587 




1812 


S«»6A 


058C 




1816 


XLPMSG 


0591 




1822 


L00PC2 


0594 




1829 


LPC2A 


059C 




183? 


LPC2B 


05A0 




1845 


LOOPC3 


05AF 




1858 


S48A 


05BC 




1867 


TOF 


05C6 




1870 


LPC3A 


05C9 




1874 


LPC38 


05CE 




1879 


LFVX 


05O3 




1885 


BOF 


05OA 





1887 


LPC3C 


05OC 




1899 


PRNTSP 


05E8 




1902 


XSPACO 


05E8 




1906 


COUNT 


05EE 




1907 


LEVEL 


05EF 
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0389 
1583 
1602 
0390 
0391 
1634 
16«»? 
1649 
166? 
1651 
1675 
1673 
1669 
1613 
0392 
1720 
1726 
1737 
1729 
1732 
1752 
1749 
1674 
172li 
1758 
1757 
1178 
1771 
1690 
1678 
1795 



,. 1684, 1701 



, 174«i 

, 1735, 17%1, 1763, 1766 

, 1761 

, 1774, 1777, 1782, 2879 

, 1896 

, 178«», 1787, 1888, 1900 

, 1796, 1797, 1817, 1827, 1840 



179L 

18«»8 

0393 

1818 

1826, 1839, 1863 

1828 

1841 

1830 

1831, 1850, 1895 

1891 



1866 
1871 
1375 
1873 
1869 
1515 
19M 
1788 
1811 
1892 



, 1878 

, 1884 

, 1904, 1978 

, 1790, 1792, 1810 

, 1845, 1846, 1851, 1858, 1864 
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o 
o 



1908 



2012 



2171 



LP100C 



LINE 



LPM1 



05FO 



1917 


SEC13 


05F1 


1918 


YSEL21 


05F2 


1923 


XLVL10 


05F9 


1938 


L00P02 


0606 


1941 


S02A 


0609 


1952 


S02B 


0617 


1963 


LOOP03 


061F 


1965 


SIXOR3 


0621 


1975 


SD3A 


062O 


1991 


LOOP04 


063A 


2005 


LPMSG 


0640 



0654 



2016 


LPM2 


0659 


2023 


MESSA 


065F 


2025 


MESS8 


066E 


2027 


MESS46 


0683 


2028 


HFSS«»7 


0689 


2029 


MSS47A 


068F 


2030 


MESSRS 


0695 


2031 


M48A 


069E 


2033 


LtMESS 


06A0 


2034 


LXMESS 


06A6 


2036 


LCMESS 


06A9 


2037 


MESSD 


06B2 


2041 


LVL10P 


06BA 


21*46 


- SPACOP 


*6BE 


2051 


SPACEL 


06C2 


2056 


FORMAT 


06C6 


2063 


Fl 


06CE 


2069 


F1A 


0604 


2076 


FPRINT 


06OC 


2080 


EXITFP 


06E2 


2082 


FFORM 


06E3 


2089 


ENOFF 


06EC 


2091 


INTERS 


06ED 


2105 


INST 


06FA 


2109 


STATER 


06FE 


211fl 


INSTO 


0700 


2120 


INST1 


070C 


2130 


INST2 


071A 


2139 


INT 


0724 


2147 


INI 


072C 


2154 


IN2 


0735 


2170 


- INTF - 


0747 



ISR 



0748 
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19«»0, 1945, 1946, 1952, 1979, 1980 

1984 

039«», 1932 

18«»2, 1938, 1963, 2000 

1958' 

1951 

1948 

1987, 1997 

1970, 1995, 1999 

1972, 1983 

1612, 1700, 1816, 1887, 1977, 2020 

1610, 1698, 1813, 1824, 1837, 1861 

1867, 1882, 1385, 1975, 2008, 2019 

2009 

1610, 1611, 1614, 1615, 2012 

1611, 1615, 1698, 1699, 1702, 1703 



1699, 


1703, 


1813, 


1814 




1814, 


1824, 


1825 






1825, 


1837, 


1838 






1838, 


1861, 


1862 






1857 










1862, 


1867, 


1868 






1858, 


1881, 


1882, 


1883 




1883, 


1835, 


1886 






1886, 


1967, 


1975, 


1976, 


1991 


1*»70, 


1609, 


1679, 


1691, 


1923, 1976 


2001, 


2044 








1902-, 


2049 








1147, 


1277, 


1812, 


2054 




2043, 


2048, 


2061, 


207*», 


2083 


2058 








, 


2072 










1834, 


2002, 


2080, 


2084 




2078 










1823, 


1860, 


2053, 


2039 




2086 










2101, 


2127, 


2146, 


2153 




0310, 


2138, 


2169 






2111 










2107 










2122, 


2129 








2125 










2135 










2144 










21«»9 










0753, 


1067, 


1356, 


1379, 


1636, 2141 
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2172 


EV 


0749 


2173 


IRCH 


074A 


2174 


TRAP 


0748 


2175 


STRAP 


074C 


2176 


INTSTA 


0740 



, 2092, 2106, 2130, 2137, 2163 



2177 



2178 



EF 



RF 



07«tE 



074F 



2180 


INITOC 


0750 


2193 


INIT1 


0760 


2201 


INIT2 


076A 


2221 


INIT2A 


0736 


2226 


INIT3 


078E 


2233 


INIT5 


0797 


2236 


TYPEIA 


079B 


2242 


FREQCN 


07BF 


2243 


ENDTYP 


07C3 


2244 


EPPO 


07CF 


2245 


FWA 


0751 


2246 


IOBFR 


07D0 


2247 


AinDPL 


0000 



2132, 


2133, 


2136, 


2140 






2134, 


2139 










1288, 


2112, 


2142, 


2150, 


2154, 


2158 


2162 












1229, 


1232, 


1320, 


1324, 


1381, 


1404 


2161 












0764, 


1071, 


1097, 


1108, 


1353, 


1385 


1395, 


1618, 


2148, 


2167 






0304, 


2245 










2200, 


2220 










2196 












2210, 


2213, 


2216 








2207 












2230 












2190, 


2191 










2184, 


2185 










2189, 


2191, 


2231, 


2232 






2231, 


2232, 


2233, 


2246, 


2247 




1002, 


1693, 


2246, 


2247 
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ACT 


0509 


ACT1 


0511 


AF 


1122 


AIDOPL 


2247 


ALARML 


0323 


ALIREQ 


0?93 


BOC1 


1007 


90C2 


1010 


BDC3 


1047 


BOC4 


1050 


BDCERR 


1033 


BBC03 


1015 


BDCSTA 


1017 


8IT0 


0243 


BITOO 


0242 


BIT1 


0244 


BIT10 


25 3 


BIT11 


0254 


BIT12 


0255 


3TT13 


0256 


8IT14 


0257 


BIT15 


0258 


BTT2 


0245 


BIT3 


0246 


BIT4 


0247 


BIT5 


0248 


9IT6 


0249 


BIT7 


0250 


BITS 


0251 


BIT9 


0252 


BOF 


1885 


CHAN 


0868 


CHAR 


1481 


CHARS 


0324 


CHARCH 


1418 


CHARCK 


0343 


CHKCNT 


872 


CHKT3 


1754 


CKER19 


0910 


CLEAR 


0289 


CLINT 


0290 


CLRNO 


T285 


CLRP 


0693 


CNT 


0927 


CONST 


0278 


CONTRO 


0221 


CONV 


0286 


CONVER 


0282 


COUNT 


1906 


DATA 


476 


DATA1 


0451 


DATAL 


0321 


OATRAN 


0457 


OF 


1121 


OIREQ 


0291 


OSPACF 


0296 


EF 


2177 


EIGHT 


0299 


ELEVEN 


0861 


ENDFF 


2089 


EN0S42 


1296 


END SEC 


0428 


ENDT^S 


0400 


ENDTYP 


2243 


EOPL 


0322 


EOPREQ 


0292 


EPRO 


2244 


EQIO 


1202 


EQTERM 


1028 


EQUIP 


0305 


EQWRT 


1004 


ERR1 


0608 


ERR16 


1765 


ERRSUB 


1124 


ERRX 


0775 


£R5UB2 


1139 


ES2 


1129 


EV 


2172 


EXIT 


0223 


EXITFP 


2080 


EXP 


0510 


EXP1 


0512 


Fl 


2063 


F1A 


2069 


FC 


0691 


FCLRIN 


0225 


F^ORM 


2082 


FORMAT 


2056 


FPRINT 


2076 


FREQCN 


2242 


FHA 


2245 


FWAM1 


1002 


GFNR*N 


0227 


HOOOO 


0259 


H00OF 


0261 


H007F 


0274 


H00F0 


0262 


HOOFF 


0265 


H0780 


273 


H0F00 


263 


HOFFF 


0268 


H2020 


0275 


H7F00 


0272 


H7FFF 


0271 


HEXASC 


0230 


HFOOO 


0264 


HFOFF 


0270 


HFFOO 


0266 


HFFOF 


0269 


HFFFO 


0267 


HFFFF 


0260 


I 


0000 


Tfl 


0409 


10 


0506 


INI 


2147 


IN2 


2154 


INBDC 


1044 


INFORM 


0240 


INTTOC 


2180 


INIT1 


2193 


INIT2 


2201 


INIT2A 


2221 


INIT3 


2226 


INIT5 


2233 


INITBO 


0994 


INST 


2105 


IMSTO 


2110 


INST1 


2120 


INST2 


2130 


INT 


2139 


I NT ERR 


2091 


INTF 


2170 


INTSTA 


2176 


IOBFR 


2246 


IPCH 


2173 


ISR 


2171 


IHO 


0817 


JUMP 


0226 


L1MESS 


2033 


LASTAO 


0237 


LASTVA 


0236 


LCMESS 


2036 


LOL130 


0239 


LDLCOR 


0238 


LEVEL 


1907 


LEVX 


1879 


LINE 


1908 


L00P12 


0656 


L00P13 


0662 


LO0P14 


0673 


L00P15 


0710 


L00P16 


0726 


L00P17 


0737- 


LOOP18 


0746 


LOOP19 


0762 


L00P21 


840 


L00P22 


0888 


LOOP23 


0937 


L00P24 


0958 


LO0P25 


0982 


L00P26 


1062 


L00P27 


1093 


L00P32 


1176 


L00P33 


1195 


LO0P34 


1225 


L00P35 


1242 


L00P36 


1259 


LOOP'* 2 


1319 


L00P43 


1333 


LO0P44 


1348 


L00P45 


1373 


L00P5F 


0623 


L00P6F 


0624 


L00P71 


1545 


LO0P72 


1551 


L00P73 


1559 


L00P7F 


0625 


LOOPAl 


1628 


L00PA2 


1635 


LO0PA3 


1643 


LOOP A 4 


1650 


L00PA5 


1663 


LOOPBl 


1712 


L00PB2 


1722 


LO0PB3 


1728 


LO0PB4 


1739 


L00PC2 


1822 


L00PC3 


1845 


L00P02 


1938 


L00PD3 


1963 


L00P04 


1991 


LP100C 


301 


LP17f»0 


0484 


LP21A 


844 


LP22 


0890 


LP23F 


0969 


LPA4A 


1655 


LPA50 


1670 


LPA51 


1674 


LP83 


1733 


LP931 


1735 


LPB4 


1745 


LPC2A 


1829 


LPC2B 


1832 


LPC3A 


1870 


LPC38 


1874 


LPC3C 


1887 


LPM1 


2012 


LPM2 


2016 


LPMSG 


2005 


LPTYPE 


325 


LVL1 


0298 


LVL10P 


2041 


LVLS 


1798 


LXMESS 


2 034 


M48A 


2031 


MAINL 


0233 


MESS<»6 


2027 


MESS47 


2028 


MESS48 


2030 


HESSA 


2023 


MESSAG 


0283 


MESSB 


2025 


MESSO 


2037 


MSS47A 


2029 


MUXPRN 


1781 


NEXT1 


0-375 


NEXT2 


0379 


NFXT3 


0381 


NINETE 


0773 


NOTCR 


1775 


NOTSEC 


0619 


OUTPUT 


0447 


OVRLAY 


0231 


PARI 


0330 


PAR2 


0336 


PAR3 


0348 


PARA9R 


0303 


PARAMS 


0319 


PARCHK 


0327 


PARLOO 


0329 


PASSCT 


0419 


PRINT 


1769 


PRINTL 


0294 


PRNTSP 


1899 


RANDOM 


0281 


RDATA 


1154 


RELPOS 


0232 


REPCON 


0422 


REPEAT 


0415 
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DATE! 


10/20^7* 


REQINT 


022* 


REQND 


028* 


RESTAR 


0363 


RETAO 


0508 


RETURN 


030* 


RF 


2178 


RIL 


0307 


RILS 


0353 


S101 


1*76 


S1*A 


tJ698 


S1*B 


0701 


S1*C 


Q676 


S15A 


0718 


S16A 


0729 


S17A 


07*0 


S202 


1*** 


52021 


1*35 


S21A 


859 


S21AA 


0795 


S21AB 


0807 


S21AC 


0523 


S21B 


086* 


S21E3 


0819 


S22A 


0998 


S22C 


0899 


S22E 


0920 


S22F 


0925 


S22G 


0905 


S23B 


09*6 


S23E 


0922 


S2*C 


0971 


S2*G 


1972 


S26A 


108* 


S27C 


1118 


S32A 


1180 


S32B 


1186 


S32ER 


118* 


Stlfl 


121* 


S33B 


1200 


S33C 


1217 


s*5a 


1*0* 


S*5B 


1*99 


S*S0 


1812 


S*8A 


1858 


S50 


1*70 


S51 


1*37 


S52 


1**0 


S5* 


1**9 


S55 


1*58 


S57 


1*59 


S5959 


1*89 


Sbl 


1.50 


S611 


1*96 


S62 


1503 


S63 


1509 


S71R 


152* 


S71C 


1532 


S7k 


1576 


S81 


1588 


S02A 


19*1 


SD2B 


1952 


SD3A 


1975 


SDATA 


0*37 


SEC 


0*20 


SEC1 


0651 


SFC10 


1608 


sech 


1690 


SEC12 


1808 


SEC13 


1917 


SEC2 


0792 


SEC2ER 


0800 


SEC3 


1169 


SFC* 


13in 


SEC5 


143* 


SEC6 


1*88 


SEC7 


15*1 


SEC8 


1583 


SEC9 


1601 


SECERR 


0507 


SECTNS 


0320 


SECTOT 


0395 


SELP 


057* 


SEl"2 


0576 


SEL1 


0588 


SEL2 


0597 


SEL211 


06*0 


SELECT 


0579 


SETMAS 


023* 


SIXORfl 


1965 


SJPAR 


0280 


SMM 


0520 


SMM1 • 


0527 


SMM2 


05*3 


SHMCNT 


02*1 


SMM PA P. 


0279 


SMMR 


0523 


SMMR1 


0536 


SPACE 


0295 


SPACEL 


2051 


SPACOP 


20*6 


START 


- 0313 


STAPT1 


0360 


STAT 


05*7 


STATO 


552 


STATOA 


055* 


STAT1 


0560 


STAT2 


0570 


STATER 


2109 


STJP 


0235 


STOP 


0*90 


STOPGO 


0513 


STOPX 


0222 


STPCNT 


1133 


STRAP 


2175 


SUB101 


1677 


SUB11 


627 


SUD12 


1786 


SU912A 


1795 


SUB31 


11*6 


SUB*1 


1*13 


SUB*2 


1279 


SUB*2A 


1288 


SU850 


1*65 


SUB51 


1*73 


SUB60 


1*99 


SUB71 


151* 


SUB72 


1521 


TFMP 


1*82 


TEST 


0366 


TOF 


1867 


TRAP 


217* 


TSACTV 


0276 


TSFPPQ 


0277 


TSPACE 


0297 


TTYBZY 


0229 


TYPETA 


2236 


TYPFOU 


0228 


wdsnt 


1512 


HDINC 


0686 


WORD 


0802 


XBO 


1026 


XCHARS 


1586 


XCHK 


1762 


XCLRP 


1065 


xnF 


0675 


XEUUIP 


05*9 


XERRX 


1105 


XLPMSG 


1816 


XLVL10 


1923 


XOUT 


0*69 


XPRINT 


1173 


XREPCO 


1751 


yr>- 


076* 


XSEL21 


15*2 


XSPACE 


1277 


XSPACO 


1902 


XSU911 


1271 


xsub*2 


1115 


XHOCNT 


8*2 


YCLRP 


1377 


YSEL21 


1918 


ZCLPP 


1779 
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